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ABSTBACT 

Tbe instruction set of the TI-59 Programmable Calculator 
bears a close similarity to that of an assembler. Though 
most cf the calculator instructions perform primitive data 
movement and/or sequence control, some can do the work of 
small high level language procedures. Regardless of this 
fact, to design and debug TI-59 programs of moderate size 
can be mere difficult than doing the computations them- 
selves. Programming in a higher order language such as 
EASIC offers many advantages over calculator code. This 
report presents the design and implementation of a cross- 
compiler which translates correct BASIC programs into 
equivalent TI-59 programs. This software package includes a 
linker which maps calculator instructions to a set of 
magnetic cards. The cards are then used tc inplemer.t a 
manually operated virtual memory system for the calculator. 
This expands program step capacity, and permits more complex 
programs tc be written in EASIC language fer translation 
into TI-59 instructions. 
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I. IN PRODUCTION 



Hand-held prcgra amiable calculators provide an extremely 
portable means of computation. Designed primarily for 
small-scale numerical computation, these devices are limited 
by their small memory capacity, slow processing speed, and 
inability to perform symbol manipulation. These 

constraints, however, cannot hide the programmable calcula- 
tor’s usefulness and power as a com pu rational tool. The 
instructicn sets of these machines resemble those of assem- 
blers. Most instruction words are primitive and perform 

simple data movements or sequence control. Yet, seme 

specialized instructions do the work of small high order 
language procedures. Typical examples include polar to 
rectangular coordinate conversion, trigonometric functions, 
and logarithmic functions. In most assembly languages these 
operations must be constructed from primitive instructions. 
Even with these added features, the designing and debugging 
cf calculator programs for r. on- trivial problems often 
requires an expenditure cf effort which conceals the useful- 
ness cf the final product as well as the calculator. 

There are a number of reasons for this difficulty. The 
lack cf a sophisticated display mechanism such as a CRT 
prevents the user from viewing more than a single data item 
or instruction at any given time. Printing devices can lend 
assistance, yet most provide little more than a means of 
dumping memory contents. ? urnhermor e , program debugging can 
be very difficult if the only error diagnostic is a single 
flashing display or an incorrect result. 

Maximum memory storage capacity constrains ever, main- 
frame computers. One solution has been the implementation 
cf virtual memory, whereby a relatively limitless on-call 
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secondary store is used no back up the primary storage. 
Programmable calculators usually have secondary storage in 
the form of magnetic cards. Normally, these cards are used 
as archival rather than on-call storage. The instruction 
sets of calculators are generally a cross between assembler 
instructions and a math function library. Compared to an 
assembler, the calculator instruction se* is small and 
includes only the most basic sequence controls. Though it 
is possible to build more sophisticated control constructs 
from the primitives, such endeavors are often constrained by 
storage capacity. As a result, if complex programs are to 
fit info memory, it becomes necessary to learn or invent 
machine dependent "tricks." 

The programmer’s inability to use meaningful names for 
variables can create more difficulties during calculator 
programming. Numerical register indices {a form of absolute 
addressing) must be used to reference variables. One of the 
major advantages of assemblers is that they provide for 
variable naming. While composing his code, the calculator 
programmer must either remember the register indices of his 
variables or continuously refer to his own written symbol 
table while composing code. Both methods become mere error 
prone as the number of variables in use grows. Programs of 
any substantial computing power usually require large 
numbers of variables. 

The problems associated with calculator programming are 
many cf the same problems which plagued experienced program- 
mers of large scale computers in the past. How can a 
beginner be expected to design good, sophisticated programs 
for a pocket calculator if it can be so difficult for 
someone with experience? One concludes that the majority of 
users write small, relatively straight forward programs and 
never fully utilize the power of such calculators. 
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The Texas Instruments TI-59 Programmable Calculator is 
one of the more popular models. Its value as a powerful 
engineering tool is indicated by its use at the U.5. Naval 
Postgraduate School and in the U.S. Army Field Artillery. 
Yet, sophisticated programming of the TI-59 suffers from the 
very weaknesses mentioned earlier. Why, then, should there 
be such interest in this device? Perhaps, the best answer 
to this guestion is provided by Hamming (Ref. 1]. He feels 
that such a primitive programming machine offers the user 
valuable experience because it is easy to operate and allows 
the beginner direct access to very basic computing hardware. 
But, he warns that attempting mastery of the TI-59 language 
is a waste of time. Cne who must do sophisticated or exten- 
sive programming for this calculator should, instead, use a 
cross-compiler to automate and reduce his effort. This 
report presents the design and implementation of cne such 
cross-compiler for the TI-59. 
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II. SOFTWARE BEQ UIR EHENTS 



A systematic approach to software development begins 
with the defining of general requirements. In this case, 
the basic design goal is the production of an effective 
software tool which will simplify program development and 
increase memory capacity for the TI-59 Programmable 
Calculator. Achievement of this goal should result in 
several enhancements to the utility and capability of the 
calculator. There will be an increase in its ability tc 
execute larger and mere sophisticated software. Most compu- 
tations which can be programmed in BASIC and some existing 
EASIC software (which may require minor modifications to be 
explained later) will become as portable as the TI-59. 

Important requirements for a user-orient ed language 
translation system should include that it be easy to use and 
easy to learn. The EASIC programming language is an obvious 
choice for the source language; it is popular, simple, and 
easily learned. More importantly, many 3ASIC constructs and 
key words are similar tc those of TI-59. This similarity 
and the fact that both languages are line-oriented ana 
sequential in nature greatly facilitates translation between 
them . 

Many versions of the BASIC language currently exist. 
Because cf its availability at the Naval Postgraduate School 
and its having many structured control flow constructs, 
Waterloo EASIC Version 2.0 (WEASIC) [Ref. 2], was chosen as 
the specific source language to be implemented by this 
compiler. The power of the TI-59 compared to the WEASIC 
language places restrictions upon the set of W3ASIC commands 
which can be translated. The specific WBASIC subset imple- 
mented is deferred tc the discussion of design issues in the 
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next chapter. While WBASIC is easy to learn, it should be 
apparent that subsetting the language will introduce excep- 
tions and restrictions which will tend to complicate 
learning for the novice and confuse the veteran. It is 
desirable tc maintain as few exceptions as possible, and to 
require that restrictions be clean and obvious. A construct 
should be implemented as completely as possible (within 
cbvicus limitations, such as the file handling or alphanu- 
meric features) or net at all. 

Provision for error detection and debugging is another 
important requirement of a language system. The intended 
use cf this initial system will be as a supplement to an 
existing WEASIC interpreter or compiler. As such, the 
cross-compiler will assume error-free source program input. 
The only requirement for error detection will be for the 
compiler to recognize words/constructs which are not imple- 
mented, but which are ordinarily legal WBASIC commands. 
Debugging cf TI-59 programs is so much more difficult than 
debugging cf higher level language programs that it is 
reasonable tc assume that a user would prefer to debug his 
WBASIC program using the W BASIC interpreter/axmpiler avail- 
able. Cr.ce the pregram is logically correct, it may be 
cros s-ccmpiied to TI-59 code, at which time it will be 
checked fer subset and calculator capacity errors. 

The TI-59* s designers have provided it with capabilities 
which can be roughly equated to the power of higher level 
language routines. Interchangeable Solid State Software 
(trademark cf Texas Instruments, Inc.) modules allow on-line 
access tc utility pregram libraries. Program steps required 
to call them and the exclusive reservation of particular 
reqisters are usually the only storage costs paid for use of 
these library programs. It is required that the power of 
these modules be harnessed by the translator under design. 
Additionally, other sophisticated features of the calculator 
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The linker will 


statically 


link 


the steps c 


f TI-59 


programs sc that it 


will not be 


nece 


ssary for a 


complete 



program tc reside in calculator step storage during execu- 
tion. Since the snapping in and cut of memory modules in 
the fora cf magnetic cards can become quits complicated for 
a running process, it will be necessary to keep this manual 
system as transparent to the user as can be reasonably 
expected. The fact that the calculator has a single item 
display window and associated register will certainly 
restrict the degree cf transparency which might otherwise be 
possi hie. 

A system must perform static linking if it exceeds 
program storage available to it during execution. This 
program will be segmented into overlays according to the 
size cf memory available to it and the portions of code it 
needs to execute at any given time. That a program be 
segmented sc as to minimize overlay swapping, must be an 
additional explicit requirement cf a linker whose overlay 
swapping will be supervised manually. It is assumed that we 
cannot significantly affect the execution speed of the 
calculator. Thus, the intent of the minimization require- 
ment should be obvious — suppress program segmentation which 
will tend tc involve human thrashing. 

The system source code must be portable. In the 
simplest case, it is desired that the unmodified source cede 
be capable cf utilization on any machine which possesses the 
resources tc store, compile, and execute it. Because of 
operating system variations in such conventions, as file 
naming ana handling, transfer and processing of the source 
code in unmodified ferm cn another machine (with operating 
system different from that on which it is developed) will be 
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very unlikely. However, the need for changes should be kept 
to a minimum and should be localized. 

Finally, as with most all major software projects, main- 
tenance and readability are considered paramount. Even 
after its completion, the system will certainly contain 
undiscovered bugs, areas to improve, and room for additions. 
Furthermore, development of a large prototype software 
system requires a great deal of careful planning for addi- 
tion and modification. Adherence to the programming 
principles which support both readability and maintenance is 
absolutely necessary. Additionally, detailed documentation 
of the source code will supplement and assist in achieving 
these goals. 
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III. PRELIMINARY DESIGN 



After requirements definition the next step in the soft- 
ware engineering process is the formulation of a preliminary 
design. Sound software design principles are applied to 
previcusly stated requirements to construct the framework 
for a software solution. It is during this phase of design 
that many of the most critical decisions are made. These 
decisions may be based upon a variety cf considerations, 
each cf which directly impacts the software organization. 
These decisions and the resulting organization are explored 
in this chapter. 

A. PRELIMINARY DESIGN DECISIONS 

Before a design can be formalized the engineer must 
investigate all design options and tools available. The 
following section summarizes the major decisions which 
strongly influenced and constrained many aspects of the 
project. With most large software projects, time is an 
extremely critical resource. As such, its impact upon 
preliminary design considerations is usually quite strong. 
Keeping cn schedule is generally cost effective. It will be 
readily apparent that time played a key role in this design 
also . 

1 • Cross-Compiler 

The fundamental considerations which most influenced 
design of the BAX59 (EAsic X-compiler for the TI-59) cross- 
compiler were the method of parsing it would use, and the 
language (s) in which it would be writtan. The availability 
cf several versions of Pascal at the Naval Postgraduate 



17 



I 



i 



School and the working experience of the authors of this 
report with Pascal were, perhaps, the overriding reasons for 
its early selection as the design language. In addition, 

the extensibility, strong typing, and block structure of 

Pascal support modularity, readability, and maintainaoili ty. 
It was at this point that the parsing technique became an 
issue. The decisions were reduced to a selection between 
two alternate approaches. Berkeley Pascal was available or 
a Digital Equipment Corporation VAX-11/780 with Bell 
Laboratories' Unix operating system. The Unix system 
included software tcols LEX and YACC which are capable of 
automatically generating a lexical scanner and LA LR (1 ) 
parser from an input grammar. YACC allows the user to 
specify cede generating actions which will be executed as 
the productions cf the grammar are processed. The alterna- 
tive system was entirely International Business Machines 
Corporation. IBM Pascal VS was available on an IEM-3033AP 
with VM/370 operating system. This system does not have the 
tools fer automatic generation cf a compiler front end. 
Instead, a scanner, recursive descent parser, and cede 
generator would have to be developed from scratch. 

While the prcspect of automating the development of 
BAX59 seemed more time efficient and less trouble, it turns 
out that subtle problems involved are many. A compiler 
constructed using LEX and YACC is generated in the C 
language, a kind of structured assembly language. While it 
is possible to link cbjact code compiled from Eerkley Pascal 
to object cede compiled from the C language, the mixing of 
source cede tends tc destroy the portability and maintain- 
ability required cf the system. Modifications or 
improvements to the finished system could only be made if 
the programmer were familiar with Pascal, C, and their 
interface. Likewise, a machine would be required to have 
both C and Pascal compilers in order to process the source 
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code for use. Thus, a recursive descent compiler in pure 
Pascal VS was the alternative selected. It quickly became 
apparent that a recursive descent compiler would be far 
easier tc develop in pure Pascal. Using a block structured 
language which supports recursion, explicit use of parse 

tables and stacks is unnecessary. The activation record 

stack resulting from the recursive procedure calls implic- 
itly holds the same information stored in a parsing stack. 
The advantage of using Pascal VS is the powerful debugging 
tools which this language system provides. While 6AX59 was 
written in Pascal VS, tc the greatest extent possible only 
those constructs and features which are standard Pascal 
[Bef . 3 ] were used. 

Another major consideration involved the identifica- 
tion of the particular W BAS IC language subset which could be 
translated to TI-59. Both feasibility and time constrained 
this selection. Commands and functions which primarily 
perform character string and file manipulation were quickly 
eliminated. The TI-59 is weak in alphanuaer ics and its 
storage capacity is too small to consider any concept of 
file handling. 

The WBASIC language is rich with matrix and array 
functions and constructs. The overhead and difficulty cf 
implementing these operations would outweigh any programming 
benefits they could provide. As a result, functions and 
constructs involving all composite data types were ruled 
out. With only slight overhead , it is possible tc imple- 
ment limited size, single-dimensional arrays. However, time 
restrictions required that this concept remain a suggested 
improvement . 

In order to simplify the translation of a WEASIC 
source program, it was decided to allow the 3AX59 scanner to 
recognize all WEASIC keywords as raserved words. This 
provided a clear distinction between real errors and 
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occurrences of legal keywords which had passed through the 
WBASIC interpreter but which had not been implemented in the 
subset. Otherwise, legitimate WBASIC keywords, not imple- 
mented in EAX59, would be treated and translated as 
identifiers. This obvious inconsistency might be very 
difficult for the user to detect as an error. It should be 
noted that WBASIC function names are not handled in this 
way. The reason is that the user can extend the EAX59 
built-in function library. Further discussion of this idea 
is deferred to Chapter IV. 

Appendix A is a summary of the WBASIC keywords and 
functions which have teen implemented in BAX 59 version 1.0. 
There are three general categories of keywords recognized by 
this cross-compiler. Command reserved words are implemented 
WBASIC keywords which indicate the start of a particular 
WBASIC construct or statement. Supplemental reserved words 
are implemented WBASIC keywords which cannot be used to 
begin a construct or statement, bur which can be used 
(optionally at times) within same to guide the interpreter. 
Unimplemented reserved words are all WBASIC keywords which 
have not keen implemented in BAX59 . The use of this last 
category of reserved words will result in a fatal subset 
error during translation. 



2. Linker 



In designing the linker three major problems arose. 
This first problem involved the fact chat the linker is 
mainly a pest processor of compiled data. As such, the 
linker is highly dependent on the compiler portion of the 
project. If this dependency were allowed, then most work on 
the linker would have to be deferred until the compiler was 
formalized and in the implementation phase of design. The 

second problem involved settling on a strategy to segment 
compiled cede according to the software requirement to 
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minimize magnetic card reads. Iwo courses of action were 
discovered, each of which had advantages over the other. 
The third problem involved hew prompting procedures were to 
be used tc ensure proper execution of the segmented program - . 
Procedures were required to be user-friendly and easily 
understood. 

In the first problem it was decided to make the 
coupling between the linker and the compiler as loose as 
possible thereby reducing the dependency. This was achieved 
by defining a specific "third party" interface between the 
compiler and linker. This interface was defined tc be a 
text file containing the four coded pieces of information 
required by the linker to accomplish its task. 

This arrangement had several advantages and disad- 
vantages. One advantage was that it allowed for the 
parallel development cf the linker and the compiler. Since 
the interface was well defined, r.o other information needed 
to pass between the linker and the cross-compiler. Ey using 
this system, interfacing considerations such a naming 
conventions were nil since each process was totally indepen- 
dent. Another advantage concerned future implementations. 
It was envisioned that future versions cf the system would 
be implemented cn microcomputers. By having the project 
divided in half both logically and physically it would be 
easily adaptable to the mere constricting memory require- 
ments of the microcomputer environment. These two 
advantages alone outweighed the only major disadvantage of 
the decision. The disadvantage is that the linker needed to 
be able tc regenerate the compiled linked TI-59 code struc- 
ture which was originally produced by the compiler. As it 
turned out, this penalty was small when compared tc the 
overall size of the finished linker. 
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The second problem was a very difficult problem -.o 
solve. Cue to the limited size of the calculator memory and 
the cumbersome nature cf the magnetic card backing storage 
system, the software requirements dictate the minimization 
cf magnetic card reads. This requirement mandated the 
following decision: a code segment-break cannot occur 

within a backward loop. It would be preposterous to read a 
magnetic card every time a program encountered a segment 
break within a thousand iteration backward loop. This lead 
to the following hierarchy of segmentation rules. First 
priority, segmentation may not occur within a backward loop. 
Second priority, maintain invoked subroutines with the 
invoking code. Third priority, keep adjacent sequential 
coda together. To implement these decisions it became 
necessary to examine the control flow structure of ar. input 
program . 

The decision as to how to accomplish this control 
flow examination is the foundation of linker desiqn. 
Basically, two options were determined. One dealt with tae 
input program as a whole and the other dealt with it as a 
series of sequential parts. 

In dealing with the input program as a whole, the 
design algorithm would check to see if the program met the 
memory limitations. If it did net then the algorithm would 
examine the control structure and determine where to make an 
optimal break, that is, a break in a sequential portion of 
the program. It would then check each new segment tc ensure 
that they complied with the memory restriction. The algo- 
rithm wculd continue until all segments met the memory 
requirements. 

In the other method the program was decomposed into 
a series of sequential segments (a sequential segment is 
defined as a segment which does not contain a backward loop 
reference to any instruction other than possibly to the 
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first: instruct ion of the segment:) . The algorithm first 

determined the sequential segments. Next the algorithm 
combined adjacent segments until the memory limit was 
encountered. At this point a segmentation occurred. The 
memory limits were reset and the combining process continued 
until another limit was encountered or the whole sequen- 
tially segmented input program was processed. 

The second method was selected for two reasons. The 
first reason is that the first method eventually required 
the evaluation of code on a small segment level much like 
the second to determine a suitable segmentations point. 
Rather than do this and more, it was decided to just eval- 
uate the small segments and build up rather than down. The 
second reason was that the second method lent itself to a 
recursive solution during the recombination process. The 
recursive solution greatly reduced the length and complexity 
of the segmentation code. 

The third problem involved deciding upon a method 
for accomplishing the prompting of the user. One method 
dealt with assigning coded prompt numbers of short length to 
be built into the code. The other method involved building 
larger self-explanatory prompts into the the code. The 
second choice was selected. This was done to reduce the 
number of instruction references that a user might have to 
make during the execution of the generated calculator 
program. This was in keeping with the requirement to make 
the system user-friendly. 

B. PRELIMINARY EES IGN ORGANIZATION 

Thus far the system design space has been narrowed to 
the design language, source language subset, and the general 
techniques for compilation and linking. Organization of the 
software into functional categories may now begin. This 
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specialized, yet still preliminary consideration cf system 
components. It should be apparent by now that a natural 
division into two major functional components, cross- 
compiler and linker, has been assumed since conception of 
the system. For a two-man design team, this partitioning 
appeared to have the greatest potential for success. It 
allowed the simultaneous development of two independent 
system components of lew coupling [Hef. 4: p. 85] and high 

cohesion (Hef. 4: p. 106], The result of tnis separation 

was a minimization cf programmer interaction, maximization 
of work time efficiency, and simplification of interfacing. 



The remainder 



this section 



outlines 



:ne 



:reliminarv 



design and organization of the cross-compiler, linker, and 
the direct interface between them. 



1 • Cross-Compiler 

The common form of all versions of BASIC language 
can be characterized as imperative, line-oriented, and 
sequential. The design of 3AX59 is based upon this fact. 
Each WEASIC line is parsed, beginning to end, by recursive 
descent. Equivalent TI-59 code is generated for each line 
concurrently with the parsing operation. This means that 
BAX59 will successfully translate a sequence of syntacti- 
cally correct yet meaningless W BASIC statements into 
equivalent TI-59 code. However, the TI-59 code will ce as 
meaningless as the source code. For this reason, it is 
recommended that the user successfully execute his SiEASIC 
source program using a WBASIC interpreter (or compiler/ 
loader) prior to translation with B A X 5 9 . 

A line-oriented view of the source code provides 
several advantages tc the design. First, there is a direct 
sequential correlation between the original source program 
and the translated TI-59 code. As will be seen later, this 
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allows easy management cf the generated code and its associ- 
ated data. Second, the parse driver routine can be a fairly 
simple loop, since lines are parsed to end of line one at a 
time until the end of the source file. Third, viewing the 
source as a sequence of independent pieces greatly facili- 
tates an iterative enhancement approach [Ref. 5 ] to the 
progressive development cf E AX 59 . This approach virtually 

guarantees a working prototype throughout the coding phase, 
and supports both reliability and maintainability. 
Modifications can be quickly tested within the context of 
the entire compiler system to date. Upon completion, the 
programmer tends to have greater confidence in his product, 
because a great deal cf testing has already been conducted. 

EAX59 was temporally organized into three major 
functional sections: initialization, translation, and reso- 

lution. The primary operations performed by initialization 
involve setting up data structures and initializing variable 
values. There are three major data structures manipulated 
by the translation section: the reserved word table, the 

symbol table, and the code data structure. Conceptual sub- 
divisions of this section, namely the scanner, the parser, 
and the cede generator, manage each database respectively. 
While the scanner is a separate routine by itself, the 
parser and code generator are not as separately defined. 
These functions are actually performed concursntly by a set 
of mutually recursive procedures under the direction or the 
main driver. This driver calls the correct subprogram into 
execution as its corresponding W3A5IC construct is recog- 
nized. Cnee translation has been completed, the resolution 
section processes the generated code into a form suitable 
for final output. This includes label insertion, peephole 
optimization, and absolute address resolution. 
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2. linker 



The linker was organized into three phases. The 
design cf these phases were the direct results of the 
preceeding design decisions made in the preliminary phase. 

The first phase is the direct result of the loess 
coupling between the linker and compiler and the decision to 
combine small sequential segments to form mamcry-size 
constrained segments. It is the preprocessor phase. This 
phase processes the interface input file and reconstructs 
the compiled linked code structure. In addition the prepro- 
cessor determines the sequential segments of cede and 
constructs an internal data table called the segment table 
which is used by tne second phase, the segmentation phase. 
The segmentation phase utilizes the recursive algorithm to 
recombine sequential code. The post processor phase is the 
result of output design decisions. This phase inserts the 
prompting code and develops the segmented code lists to be 
output to the user. It then produces the code in a text 
format together with specific instructions as to its use. 

3 • 2 i r e ct I nr er face 

The design organization is built around the loosely 
coupled compiler and linker. This coupling is made possible 
through the rigid definition cf the interface text file. 
The organization of this text file is critical to the design 
and will be described in more detail. 

The text file is the only direct transmittal of data 
between compiler and linker. Four pieces cf data are trans- 
mitted. They are the following: a number signifying the 

next register available for use; generated code list in a 
numeric formatted form; text containing DATA/READ informa- 
tion; and text containing the mapping of TI-59 registers to 
EASIC varibles. Each piece of information is preceeded by a 
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$XXX in the first column where XXX is a number. This simple 
format enables the linker to easily locate the correct 
information and process it accordingly. Since this is the 
only explicit interface, the compiler and linker are net as 
dependent on each other as they would have been in a clcsely 
coupled system. 
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IV. DETAILED DESIGN 

The source code contained in Appendices C and D provides 
high resolution understanding of the system. However, in 
order to provide rationale behind design issues for a 
language system comprised of almost 10,000 lines of code and 
comment, discussions of some detail are in order. 

It is not our intention to explain everything. what we 
wish to do in this chapter is to introduce design details 
and strategies of the more important concepts and components 
in the system. This will serve to illustrate software engi- 
neering and how it is used in this project. 

Upon the completion of preliminary design, the detailed 
design is begun. It is during this phase that the actual 
details of full implementation are defined and laid cut 
prior to ceding. Categorized under cross-compiler and 
linker, the general format for the sub-sections of this 
chapter will include an informal solution strategy for a 
specific design problem, followed by a discussion of the 
major data objects and procedures which manipulate these 
objects. where appropriate, inter-procedure interfacing 
criteria are outlined. In several cases, significant prob- 
lems, their solutions, and possible system improvements are 
discussed. The last section presents implicit interface 
design which impacts greatly on the system. 

A. CBCSS-CCHPILEH 

The fundamental design of BAX59 is a finite state 
machine driven by a main loop. Once values and data struc- 
tures have been initialized, program control enters the main 
loop which scans, parses, and generates TI-59 code for one 
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W3ASIC source line. At the end of line, the loop checks for 
end cf source file. As long as the end of file is not 
detected, the main loop repeats its processing cf each 
succeeding line cf source code. When end of file is found, 
control exits the main loop and post- processing begins on 
the generated TI-59 code. This includes insertion of 
suspended code data, optimization, address resolution, and 
final output of code and associated data. 

The entire cross-compilation process is broken down into 
15 functional areas. These are outlined by the contour 
diagram in Figure 4.1 Note that solid lines indicate actual 
procedures (P/) or functions (?/) , while dotted lines only 
indicate logical association. Although these areas often 
depend upon one another, the particular services performed 
by each differ enough to allow independent analysis. Were 
it net for limitations imposed by the Pascal language, many 
more procedures and functions would have been tightly pack- 
aged in order to hide implementation details between 
functional areas. What fellows is a survey of the major 
functional areas cf EAX59 and the design details for each. 

1 . Initial iza t ion 

In the interest of execution time efficiency all 
run-time actions which required completion prior to the 
start cf parsing are incorporated into procedure INITIALIZE. 
As a result, some variables and databases which would other- 
wise have been local to their respective procedures, 
required globalization. One particular example is the 

reserved word table. This data structure is built of data 
supplied from outside the program in file RWTEL?. Since the 
reserved words contained in this file need only be leaded 
once (at the start of execution) , there was no good reason 
to place them into procedure SCAN, which is called often by 
parse routines. while it would have been possible to use a 
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Figure 4.1 Cross-Compiler Contour (PHOG9AM BAX59) . 




boolean switch tc detect the initial call to SCAN and subse- 
quently generate the reserved word table at this first call, 
this would have increased the coupling between nodules. 
Loading the reserved word table from outside the program 
offers several advantages. First, changes to the reserved 
word table can be made easily (this process will be 
discussed when the scanner is considered). Second, the user 
can check cne file (RWTBLF) in order to see the reserved 
words recognized by EAX59. Third, the loading routine dees 
not need tc know the words themselves, only the name and 
format of the file in which they reside. 

Built-in functions are also loaded by procedure 
INITIALIZE. This operation actually requires two ordered 
steps. First, the symbol table must be created. Second, 
function recognition and generation data is read from 
outside files (BIFNQF and>3IFNLF) and the symbol fable 
management routines are used to put this data in the table. 
Loading the built-in functions by using the same routines 
which the parser will use to manage the symbol table, 
ensures table consistency and promotes readability. This 
approach has been taken as often as possible in designing 
the cross-ccmpil er. 

The complexity of the above initialization processes 
as well as the the TI-59 kaycode text (CTSXTF) leading 
process required that these operations be abstracted into 
individual subprograms. However, procedure INITIALIZE 
performs many other pre-compilation activities which could 
be performed sequentially. Probably the most important of 
these activities is the simple initialization of variable 
values. The importance of this task is elevated by a 
serious hole in the Pascal vs implementation. The Pascal VS 
compiler will not detect the failure to initialize a vari- 
able value prior to its use. Nhat is worse, random values 
which exist in pointer references or other variable storage 
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areas will be used as is, whether they ware out there by the 
user or not. As a result, failure to initialize values was 
a major source of error during development of 3AX59. Ihsse 
types of errors tended to be extremely difficult to debug, 
since they often surfaced late and usually in modules long 
thought to be robust. 

In summary, procedure INITIALIZE loads all informa- 
tion which will ce needed by the translation and resolution 
stages, constructs conveniences data such as character sets, 
assigns starting values to all variables and pointers. 

2 . Scanner 

At the lowest level of abstraction within the trans- 
lation component of EAX59 is the scanner, procedure SCAN. 
This single, self-contained subprogram is basically designed 
on three important concepts . First, the scanner is itself a 
finite state machine. Second, with the exception of proce- 

dure INITIALIZE and some system constants, its 
implementation is transparent to the rest of the cross- 
compiler. Third, the database which it uses for token 
recognition is simple, time efficient, and general. 

The state machine logic cf procedure SCAN provides 
knowledge cf token streams in free format and nothing more. 
Its primary job is to read the source file character by 
character in order tc isolate and recognize single tokens. 
However, procedure SCAN is designed to do much more. First, 
it reads and converts line numbers. It also fills as neces- 
sary the line buffer and accumulator, the data structures 
which stcre the line and token currently being scanned 
respectively. The scanner also detects the end of a source 
file which has no explicit WBASIC "END" statement. This 
allows a more graceful conclusion to what might otherwise be 
an abrupt e x it . 
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Two other functions performed by the 
illustrate its transparency to the rest of the cross- 
compiler. These are recognition of the end of a line and of 
continuation lines. Procedure SCAM reads and loads the line 
buffer (LINEUP) with a new line cf source text each time the 
end of line character ("a>") or continuation line character 
("&") is found. The only difference is that the end of line 
token number must be passed up to the parsing routines so 
that the main loop will knew when it has parsed one entire 
line. Cn the ether hand, the continuation character can 
remain invisible to the parser, which views only whole 
source lines. 

As mentioned before, the database used by procedure 
SCAN is the reserved word table. Although referred to as a 
table, the internal representation of this database is actu- 
ally three coordinated arrays constructed from the 3 foTELF 
file by procedure INITIALIZE. These arrays are used to 
compare the characters of a token in the accumulator to the 
characters cf reserved words. The simplicity and efficiency 
of this comparison is illustrated in Figure h.2, which 
depicts a condensed schematic of the arrays. Note that the 
characters in the 5WCHA3 array are arranged in order of 
increasing word length. A reserved word look up is based 
upon the length of the word in the accumulator. Comparison 
begins at the first character cf the first word in the 
RWCHAS array which matches the length of the token in the 
accumulator. Comparison ends when either all characters in 
the accumulator match a string in the RWCHAH array, or when 
the characters cf all words of a given length have been 
compared to the accumulator without success. 

The RWWORD array references the start index cf each 
word in the RWCHAR array, while the RWLENG array references 
the start index for the first word in the RWWORD array for 
that length index. The indexes of the RWWORD array are used 
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Figure 4.2 Reserved Word Table Arrays. 
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as the token numbers returned by the scanner after a 
successful look up. Should a lock up operation fail to 
recognize the accumulator token, then the token is assumed 
to be a variable identifier. Other token types, such as 
numerics, are recognized prior to table lock up. This mech- 
anism and the fact that the scanner is independent from the 
parser require that WBASIC keywords be reserved. If 
keywords were overloaded as variable identifiers, the parser 
would have to communicate its token type expectation to the 
scanner. Token overloading would greatly hamper 

readability . 

Cr.e scanner related problem which required a rela- 
tively complex solution concerned the conversion of WBASIC 
to TI-59 numeric values. The calculator display window 
restricts the number of significant figures which can be 
entered from the keyboard. For numbers without exponents, a 
maximum of ten digits (with decimal point) can be entered. 
Numbers with exponents are allowed a maximum of eight digits 
in the mantissa and two in the exponent. Because of this 
restriction, a rather complicated procedure was designed to 
convert WBASIC numeric values to TI-59 compatible values 
without losing equivalence. Procedure ADJUST performs 
decimal point shifting and exponent modification on WEASIC 
numerics which contain too many significant figures for the 
TI-59. The operation can, of course, reduce significance by 
truncation of excess digits. Except for this loss of 
digits, equivalence is maintained. 

3 • Error Ha ndl i nq 

At this point it is appropriate to discuss error 
recognition and recovery. As implied earlier, the error 
detection capability in 3AX59 is relatively weak and incom- 
plete as compared to full language compilers. The reason is 
that the system requirements specified error-free input 
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source files. The primary use for this system is as a 
supplement to an existing BASIC language interpreter or 
compiler. Debugging of TI-59 programs is a hard enough task 
without adding the complexity imposed by absence of EASIC 
language run-time diagnostics. Therefore, users of EAX59 
are strongly advised tc ensure that a WBASIC program is 
correct syntactically, semantically, and logically by 
running it in the WBASIC environment, before translation to 
TI-59 code. Error handling in EAX59 is restricted to detec- 
tion of subset related exceptions, calculator capacity 
limits, and errors of opportunity. 

The cross-compiler is designed for recognition of 
two major types of errors: fatal errors and warning 

messages. Fatal errors are further categorized as scanner 
or parser detected. 

Warning messages are generally unrelated to WEASIC 
syntactic or semantic problems. They refer to potential 
difficulties with the TI-59 run-time environment, most 
commonly (but not always) calculator capacity. Such condi- 
tions as toe many registers in use, too many labels in use, 
or excessively nested subroutine calls, will trigger warn- 
ings. Each message is explicit and cautions the user of a 
situation which is considered abnormal to the calculator. 
Since these errors are unrelated to the WBAS-IC source code, 
warning messages do net halt the parsing or code generation 
processes. However, TI-59 code generated from a WEASIC 
source file that produced warnings is not guaranteed to 
execute properly, if at all. 

The warning message is similar to non- fatal errors 
in full language compilers. The reason for continuation of 
code generation is slightly different. A user of 3AX59 will 
most likely need to modify and tailor his WBASIC program to 
fit calculator constraints and capacities. Warnings are a 
non- fatal means of providing near equivalent code data for 
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uss in comparison of efficiencies, capacities, or consis- 
tency. Even though the code may not successfully execute on 
the calculator, it still represents a direct translation 
from WEftSIC and is a fairly accurate indication of program 
size, register/label use, etc. 

Unlike a warning, one fatal error will flag the main 
loop against further parsing and code generation. However, 
scanning for tokens continues until the end of the source 
file is reached. Thus, only a single fatal syntax error can 
ever be detected in one BAX59 execution, although the 

scanner will continue to detect any number of lexical 
errors. Fatal errcrs are also categorized as subset or 
non-subset related. Non-subset errcrs are those previously 
referred to as errors of opportunity. During the ceding 
phase of development, simple syntax checks were often 
inserted into the logic of the parsing routines. These were 
usually cne-line IF-THEN-ELSE constructs which cost very 
little but were highly protective. For example, the main 
loop calls procedure PGOTC whenever the GOTO command is 
recognized. Since error-free input is required, this proce- 
dure could have been written to assume that the next token 
must be a numeric line reference. Instead, it was a simple 
matter to check the next token's type and call a syntax 
error (PERRCB) if it were not numeric. Mote, however, -hat 
the logic cf PGOTO will not call an error fer a numeric 
token which contains a fractional part, clearly a syntax 
error. In fact, the cross-compiler is not likely to detect 
an error at all. Execution may result in a Pascal VS run- 
time error. The reason is that the numeric string will be 
converted to an integer value based on ordinal values of the 
characters. The decimal point will appear to BAX59 as any 
ether character. However, its ordinal value will be added 
during conversion resulting in an inconsistent integer value 
for the line reference. The routine used to set jump 
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pointers will probably not be able to find the line number 
since it is already in error. 

Although often incomplete, these error traps 
provided much assistance in tracking system bugs. The tech- 
nique used was to translate simple source programs known to 
be correct. Errors, tripped at these check points by system 
bugs, usually indicated the likely trouble spots. The 
faulty routine had helped in parsing either the statement 
which caused the error or the statement which immediately 
preceded it. Since the token which tripped the error was 
also kncwr, the exact routine and the specific bug were 
easily found. 

Subset related errors were defined in the software 
requirements. The user must be told where and hew he has 
misused the system. BAX59 incorporates all W3ASIC keywords 
(Version 2.0) in its reserved word table. The main lccp 
logic contains the information to distinguish between imple- 
mented keywords and unimple merited keywords. This technique 
allows the reserved werd table and implemented subset to be 
easily expanded (or contracted). Such a technique strongly 
supperts the requirement for maintainable source code. 

There is more room for improvement in the area of 
error detection and handling than in any other aspect of the 
cross-compiler. The capability could certainly be extended 
to protect against all possible syntactic and semantic 
errors sc that prior compilation or interpretation would be 
unnecessary. However, the benefits to be gained are ques- 
tionable, since run-time and logical debugging of TI-59 
programs is no easy task. A special file to held error 
message text might help to reduce some of the awkwardness in 
portions of the code which issue these messages. Within 
this file the messages could be indexed by number, thereby 
allowing mere verbose and possibly clearer explanations of 
errors. Generally speaking, the critical resource of time 
forced the design of error handling to be barely adequate. 
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4 • Symbol Table M anag e men t 

Cne of the mere important duties of the parser is to 
manage the symbol table. The BAX59 symbol table is a vari- 
able bucket hash table similar to one described by Aho and 
Ullman £Ref. 6]. The data structure used is an array of 
pointers. The indices to this array of base pointers are 
hash values computed by taking the modulo 99 sum of the 
ordinal values of identifier characters. This operation is 
performed by procedure HASHVAL. Figure 4.3 depicts the 
structure of the table itself and ins four types of identi- 
fier entries. Three of the four types of identifiers are 
functions. These will be discussed later in this chapter. 
The important structural feature tc notice new is that each 
node has a SLOTP field regardless of variant tag. The SLOT? 
field is each entry’s link in the variable length chain 
which forms a bucket. In order to insure that no uninitial- 
ized pointer references or variables occur, new nodes are 
created as needed by the separate function GETSLOT. The job 
cf this function is to create the node and to insure that 
all of its fields have been initialized to default values. 
This same approach tc data structure construction is used 
throughout BAX59 in order to protect against random initial- 
ization by the Pascal VS compiler. 

The look up operation of procedure IDLOGKU? is 
simply tc hash the characters of the identifier token in the 
accumulator to the correct base pointer bucket in the symbol 
table. The IDENT field of each slot node is compared to the 
accumulator token until either a match or a nil pointer is 
found. If a match is found, a pointer to that slot is 
returned. If no match is found, then a slot for the accumu- 
lator identifier token is automatically added to the symbol 
table in the bucket just searched. A pointer to this new 
slot is then returned. This is in accordance with the 
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Figure 4.3 Symbol Table. 
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semantic rules of the BASIC language which allows implicit 
declaraticn of variable names by using them in statements. 

The insertion of new identifiers into the symbol 
table is performed by procedure SNTERID. This procedure 
creates the new slot, fills all fields which are known, and 
links the slot into the symbol table. It is also during 
this process that identifiers are assigned TI-59 registers 
for cede generation purposes. Function NEW REG handles the 
register peel, which is actually nothing mere than an 
implicit stack of integers. An important feature regarding 
the assignment of registers to variable names is that the 
user has seme control over these assignments from outside 
the program. Included in the LABEL? file is a place to list 
register numbers which the user wants to reserve for his own 
use. Function NEWREG will not assign these numbers to 
WBASIC variable names. The significance and power of this 
control feature becomes more apparent during the discussion 
of functions. The user is cautioned against reserving the 
last assignable register number (system parameter in 
constant declaration block: REG3A3E) . Reserving this 

register will short circuit the logic which reports a TI-59 
memory overflow warning message, the situation in which too 
many registers are in use. 

As a final note, there are two forms of output which 
ara closely associated with the symbol table. One is the 
WBASIC variable name tc TI-59 register mapping which corre- 
lates variables to register assignments. The other is an 
optionally available symbol table image, which lists each 
table entry in tucket order with type and register assign- 
ment. Ecth outputs are discussed in the last section of 
this chapter. 



I 



I 









5 • Expressions 

The most fundamental and most, common construct seen 
by the pars 3 routines is the arithmetic expression. The 
many similarities between EA5IC language expressions and 
TI-59 expressions make them relatively easy to parse and 
generate. However, a few subtle differences cause abnormal 
situations requiring careful design. If there is one lesson 
to learn from this discussion, it is this: in compiler 

design, when in doubt revert to the grammar specification. 



TABLE I 

Production aules for Expressions 

<EXPHESS ION > ::= <PRIHARY> {<3INARY0P> <PRIMA3Y>} 

<PEIMAEY> ::= (+|~1 <?RIMARY> | 

< UNSIGN ED NORBER> I 
<IDENTI FIER> | 

( <EX?RE5SIQN> ) 



Table I lists the grammatical specification for a WEASIC 
expression. The two production rules in Table I are 
abstracted by the two 3AX59 parse procedures PEXPR and 
PPRI MARY. They are designed to parse and generate code 
through mutual recursion. Careful examination of the case 
statements within these preeaures will reveal the differ- 
ences between WBASIC and TI-59 expressions. While both use 
infix nctaticn for binary operators, unlike WBASIC, TI-59 
unary operators and function applications are postfix. This 
minor twist in notation adds a little complexity to the 
logic of the expression parsing routines. However, once 
designed, the code for translation of expressions became the 
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fundamental base upon which assignment statements, condi- 
tional expressions, functions, and many other ccntructs 
could be built. 

6 • Gnstruc tured Jum ps 

Seme of the easiest constructs to understand and 
implement were the unstructured control statements GOTO and 
GOSUE. lc realize their simplicity it is necessary at this 
point to introduce the coda data structure which is 
constructed by the generation routines. 

Illustrated by Figure 4.4, the code data structure 
is, perhaps, the most unique design concept of this cross- 
compiler. There are two types of nodes: W3ASIC line number 

nodes and TI-59 keyccde nodes. Since unstructured 
constructs in WBASIC are dependent upon source line numbers, 
there had to be a method of associating the TI-59 cede with 
tnose same line numbers. Figure 4.4 shows how line nodes 
and code nodes are linked to duplicate this association. It 
is important to note that the TI-59 code chain is completely 
independent (and may be traversed as such) of the WEASIC 
line number chain. The lrne nodes merely provide a frame of 
reference for the TI-59 code. 

Procedure SETLINE, called at the beginning of the 
main driving loop, is responsible for insuring that new line 
nodes are created and inserted into proper order. As each 
line is parsed, special holding pointers (FIRSTLP, LA STL?, 
EEGINCP, ENECP, LPLEAE, LPT RAIL, LPCUR, CPCUR) keep track of 
all key locations in the structure. As Figure 4.4 indi- 
cates, it is possible to have line nodes created and linked 
prior to their encounter in the source code. This occurs 
whenever a forward jump (GOTO) is parsed. Since the line 
reference of a forward jump has not been parsed, its line 
node would r.ot exist. However, the jump pointer (JHPP) must 
be anchored to a node. So the line node and an anchoring 
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cods node are inserted in correct order ahead of the current 
line. Procedure SETJMP2XT sets forward as well as backward 
jump references. Cf course, setting backward jumps is 
easier because the line number node has already been created 
and is in place. It should be noted chat procedure SETLINE 
always checks ins forward line number chain before creating 
a new line node. If a line node exists whose line number 
field (LINO) is equal to the next vfBASIC line number, then 
it will be used instead. 

The technique for handling G0SU3 statements is 
similar to bur slightly more involved than the GOTO. Since 
the GCSUE is actually an unstructured subroutine call, it 
was necessary to maintain consistency in code generation so 
that the linker could recognize the difference between 
subroutines and unconditional jumps. All TI-59 subroutines 
are prefaced with and called by a label name. Therefore, 
while initially the GCSUB can be treated as a GOTO, at some 
time later a label must be inserted at the head of the 
subroutine body, which is the node referenced by the jump 
pointer. This is done during the resolution phase cf compi- 
lation by procedure FIND GOS UBL5L. This fairly tricky 

insertion is one reason for the existence of the back 
pointer field (BAKP) in code nodes. This operation will be 
explored in the sub-section on resolution. 

7 • lo o pin g and E ranch i no 

Users of BAX 59 are strongly urged to practice struc- 
tured programming when writing WBASIC code. Translation to 
and execution on the TI-59 are far more regular and predic- 
table when the input source code is structured and readable, 
auch cf the design of the entire system is based upon the 
assumption that the source program will be structured. You 
will understand why more thoroughly in the section 
describing linker design. 
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We begin discussion of structured looping and 
branching by introducing procedure PCONDITION. This proce- 
dure is fundamental to the parsing and code generation for 
simple boolean expressions (compound boolean expressions 
have not been implemented). While WBASIC has a fairly 
common set of boolean operators, the TI-59 does net. There 
was a need to construct efficient sequences of TI-59 code 
which are equivalent to the WBASIC boolean operators. These 
equivalences, shown in Table II, are implemented in 



TABLE II 

TI-59 Keycode Sequences Equivalent to Boolean 

Op erators 



A = B 


A <> B 


A >= 


RCL A 


RCL A 


RCL A 


X- >T 


X- >T 


X- >T 


SCI E 


RCL E 


RCL 3 


INV 


X=T 


X- >T 


X-1 




INV 
X> =T 



A <= 3 


A > 3 


A < E 


RCL A 


RCL A 


RCL A 


x ->r 


X->T 


X->T 


RCL 3 


RCL 3 


RCL E 


INV 


X>= T 


X ->T 


X>=T 




X>=T 



procedure FCCNDITION. While it would have been possible to 
implement compound boolean expressions (AND and OH), the 
lack of time and the fact that their logic could be dupli- 
cated using I? statements prevented this enhancement. It 
was, however, a very simple extension of logic to recognize 
and translate a negation (NOT) . 

In the implementation of a block structured language 
which allows nesting, the use of stacks is an important 
technique. And so it was with looping in BAX 59 . By nature 

loops involve backward jumps. As with unstructured jumps, 
there existed a need to anchor pointers on code nodes whose 
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sou res cods had yet tc be translated. In the case cf lcccs, 
the inverse of this concept is also true. There was a need 
to create pointers frem code nodes whose source code had vet. 
to be translated. Since structured nesting of loops is 
checked by the WEASIC interpreter, it was possible tc pre- 
create these nodes and push them onto a stack until their 
place of insertion is encountered. This is exactly how 
loops are translated using LOOPSTACK and ENDLOOPSIACK. When 
the LOOP statement is encountered, a NOP keycode node is 
created and pushed onto the ENDLOOPSIACK. In the case of 
the WHILE statement, a boolean expression is processed, a 
forward reference node is created, a jump pointer is set to 
the node (for the false branch to end cf loop) , and this 
node is pushed onto the LOOPSTACK. When the ENCLOOP or 
UNTIL is found, the stacks are popped and the NOP nodes are 
inserted. The nature cf correct nesting guarantees that NO? 
code nedes popped from the stack will have jump pcir.ters 
referencing or will he referenced by the appropriate cede 
no d e s . 

Iterative loops are written by using the FOR-NZXT 
construct. The stack implementation is similar to that 
described above. The main difference is in the additional 
calculator resources required for such a loop. Unlike ordi- 
nary variable names, the FOR loop variable requires from two 
to three register assignments. The fields AUXREG1 and 
AUXREG2 in the VARIE tagged slot record are used for this 
purpose. AUXRSG1 holds the TI-59 register number which will 
store the upper (lower) limit of the FOR index variable. 
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rly heavy 
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and program 


step use. 
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FOR 
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statement in W BASIC translates to use of two registers and 
ever 20 program steps. Most of this overhead is caused by 
the run-time checking of the FOR index variable value 
against its limit for each iteration through the loop. 

Branching is anon her construct implemented with 
stacks. There are actually two forms of branching: the 

unstructured or line-or ien red IF statement and rhe block 
structured IF statement. The unstructured IF is actually 
only partially implemented. N3ASIC allows either a jump ro 
a line number or execution of any single statement within 
each of the I? branches. Because the structured IF can be 
written tc perform the same way, it was decided to restrict 
the unstructured I? to allow line jumps cr the QUIT state- 
ment. The implementation of line-oriented jumps has already 
been discussed. An IF-TH EN-QUIT or IF-THEN- ELSE- QUIT is 
handled by setting a jump pointer to the ENDLOOPSTACK. The 
effect is tc force program control to exit the current loop. 
If ccntrcl is not within a loop (i. e. ENDLOOPSTACK is nil) , 
then an error condition is raised. FOR loops are not 
considered loops in this context. 

The more powerful of the two I? statements is the 
block structured IF- ELSEIF- ELS E-ENDI F . This form disallows 
the use cf keyword THEN, since it is implied. Once again, 
stacks are used to implement the structured IF. The logic 
and its correspondence to the manipulation of stacks is 
roughly similar to that of looping. Instead of directing 
jump pointers to the end of loops, they are directed tc the 
next ELSEIF or ELSE. An unusual situation occurs, however, 
in the case cf the IF statement. Stack manipulation for the 
IF-ENEIF is slightly different from that for the 
IF-ELSE-ENDIF or the IF-EL SEIF-5LSE- SNDIF . To understand 
the problem, assume the viewpoint of a parser which has just 
evaluated the condition of a structured IF. At this point 
you dc not knew whether or not an ELSE/ELSE IF or an 
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immediate ENDIF will fellow the -eras branch. To which stack 
will the jump pointer of the false branch be set? In order 
to cover both possibilities , a pointer to a node pushed onto 
each stack is required. However, there is only or.e jump 
pointer field (JMPP) for the code node which represents the 
jump address to the false branch. Our solution uses the 
back pointer field (EAKP) to refernce a node in the IFSTACK , 
while the jump pointer field (JMPP) references a node in the 
ENDIFSTACK. Procedure ELS EADJOST performs the resetting of 
pointers required when an SL3S/ELSEI? is encountered. When 
the ENDIF is encountered, the BAK? is tested for a nil 
pointer. A nil BAKE at the top of the ENDIFST ACK indicates 
that an ELSE/ELS EIF has been seen. This is because proce- 
dure ELSEADJDST is the only routine which can clear the 3AKP 
reference before the ENDIF is encountered. 

The causa for all the foregoing complexity is the 
fact that IF -EH DIF has a single false branch which must be a 
jump past the ENDIF . The tail of the true branch merely 
falls through the ENDIF. On the ether hand, 

IF-3LSEIF-ELSE- ENDIF can have several false branches, only 
one of which may jump tc the ENDIF. The tails of the all 
true tranches must be jumps to the ENDIF. The logic of 
BAX 5 9 is designed to recognize and generate equivalent TI-59 
code for ery of these possi bilites. 



8 . Functions 

The mo3t powerful feature of the BAX59 cross- 
compiler is the translation of functions. 3oth built-in and 
user-defined functions are handled. In order to take full 
advantage of the calculator's capabilit i es , it was necessary 
to design three distinctly different types of functions. 
The first type, referred to as "quick" functions, are the 
common arithmetic/tr ignomet ric functions such as LOG, SIN, 
COS. The second type of function harnesses the power of the 
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Solid State Software module. These are referred tc as 
"long” functions. Both of these first two types are 
built-in functions. The third type is user- defined "param- 
eter" functions, which are translated from SBASIC source 
code specifications. 

The difference between "quick" and "long" functions 
is basically the number of TI-59 program steps generated for 
each. "Quick" functions generally translate to a one or two 
step TI-5S keycode sequence. However, they may have as many 
as four steps. Because they are short, "quick" functions 
are inserted as in-line macros. On the other hand, "long" 
functions may translate to as many as 15 steps. Therefore, 
their length reguires that they be called as subroutines 
rather than translated in-line. 

Head from the BIFNQF and BIFNLF files respectively, 
the code fcr both "quick" and "long" functions is entered 
into the symbol table during initialization. BIFNQF and 
BIFNLF may be revised by the user from outside the cross- 
compiler. By knowing the TI-o9 key stroke sequence, a user 
may add his own functions to either file. As a special user 
note, the format for additions to these files is critical. 
The number of key strokes in a function sequence may not 
exceed the maximum limit for the type of function. If less 

than that limit, then the end of the sequence must be padded 
with NOP (68) key strokes to the maximum limit. These 
limits may be altered by adjusting the system parameters 
FNQLEN and FNLLEN in the constant declaration blcck of the 
EAX59 source code. 

Most all functions that could be implemented as 
"quick" have been and are listed in the BIFNQF file. 
However, only the RND(X) (random number generator) function 
has been implemented as "long." To illustrate the concept 
of "long" function, we will walk through the design of 
HND (X) . 
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Suppose you desire to write a TI-59 program which 
uses a random number generator. You might write your own 
pseudo-random number generator subroutine, but the TI-59 has 
such a routine built into its read-only Solid State Software 
module. Dse of this built-in facility would clearly be mere 
space efficient. WEASIC also has such a function, RND(X). 
If it had net, it would be possible to write one in WEASIC 
using the DEF FN_KND (X) statement. Before translation it 
would be necessary tc remove the function definition blcck 
and replace the FN_ R ND (X) calls with RND(X). However, this 
is not required in cur example. You must ensure that the 
TI-59 registers used by the Solid State Software module tc 
run the RN D (X) function are reserved in the LAB ELF file. 
This information can be found in the Master Library Manual 
[Bef. 7], which is the Master Solid State Software module 
reference guide. R ND (X) uses registers 0 1 , 02, 03, Oh, 05, 

06, and 09. "Long" functions always take a single parameter 
(even if it is a dummy). Register r.umoer 10 has been desig- 
nated to store this parameter and should also appear cn the 
reserved list. This parameter register assignment may be 
changed in system parameters of the BAX59 source code if 
desired. Each time it is encountered within the WEASIC 
source program, END (X) will translate as a call to a subrou- 
tine whose single parameter is stored in register 10. The 
first time seen, the END symbol table node will be linked tc 
a special list (FNLLIST). At the conclusion of code genera- 
tion, FNLLIST will be traversed and the key sequence which 
executes ENE(X) as well as any other "long" functions on the 
list, will be added to the code data structure as subroutine 
bo d i e s . 

The real power of this facility lies in its user- 
contrclied flexibility. The user may convert almost any 
program function in the Solid State Software module into a 
single parameter "long" function. All he must do is reserve 
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the correct registers in the LABELF file, list the key 
sequence in the BIFNLF file, and, if necessary, fix the 
values cf all but cne of the function input parameters (or 
create a dummy) . If the function does not exist in WEASIC, 
then he must write the DEF block for it in order to check 
program correctness prior to translation. 

Having strayed from implementation design toward 
system utility, we new return to implementation discussion 
cf so-called "parameter” functions. The name given these 
user-defined functions applies more to how they are imple- 
mented rather than to their nature. The parsing routines 
always expect parameters but do not require them. 
Parameterless functions are, indeed, recognized. 

Although the cross-compiler will correctly translate 
a function definition (DEF statement or block) whether it 
occurs before or after its respective call, the linker 
requires that all subroutme/f unction bodies be placed after 
the main program. 

When a new function identifier is recognized (by the 
"FN_" prefix), a new FNPIE tagged slot is created for the 
symbol table. Procedure GEN FARM is then called upon to 
parse actual parameter expressions, generate code which 
performs their run-time evaluation, and construct the formal 
parameter list. Parameters, if found, are linked in order 
to the FNF field of the symbol table slot for the function. 
While registers are assigned to these parameters, the corre- 
sponding formal parameter names cannot yet be entered since 
they are net known until the function DEF statement is 
found. Note that formals are assumed to match actual param- 
eters by both order and quantity. There are no checks in 
BAX59 to insure this correctness. Only a run through the 
WBASIC interpreter will verify parameter correspondence. 
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When the function definition is found in the CSF 
statement, a process similar to parsing the call takes 
place. Ihe formal parameter names are new inserted into the 
parameter list attached to the function slot in the symbol 
table. Before the function body is processed, the slot is 
pushed onto the FNSTACK. This stack simulates an activation 
record stack. Each identifier look up that is performed by 
procedure IDLOOK'JP requires that the FNSTACK be examined for 
active functions. If a formal parameter name is found in an 
active function parameter list which matches the identifier 
being sought, then its register assignment is used for code 
generation. As a result, standard rules of variable visi- 
bility and scoping apply. When the end of a function body 
(FN END statement) is exccunterei, the function slot is 
popped from the FNSTACK and its formal parameters are no 
longer visible tc the run-time environment. 

As a final note, the user should know that "param- 
eter” function names receive their own register assignment. 
This register is the place in which the final value of the 
function is returned. This register is zeroed during run- 
time just prior to the execution of the function call. 
However, after execution the value in this register persists 
until the next call cn the function. This corresponds to an 
identical situation in the WBASIC run-time environment. 



9 • Cede Re solution 

If the physical end of the WBASIC source program is 
reached, or if a WBASIC END statement is found, parsing is 
stopped, the bodies for any "long" functions used are gener- 
ated, and the code data structure is closed out with nil 
pointers. At this point, the code resolution phase of 
compilation begins. 
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The first step in resolution is to locate and insert 
labels at the destinations of all unstructured subroutine 
(SBP. ) calls. These, of course, were generated by GOSU3 
statements. Since GCSUB is a line-oriented jump, then there 
is a pointer in the code data structure referencing the 
destination of that jump. Procedure FINDGOSUBL3L traverses 
the code data nodes searching for SBR keycodes which are 
followed by a node with a non-nil jump pointer (JHPP) . A 
very complicated check is made to ensure that the SBR label 
has net already teen inserted by an identical SBR call. If 
not, then the back pointer (3AKP) is used by procedure 
PUTGC SU3IBL to assist in the insertion of the label at the 
jump destination. Cnee the insertion has been completed, 
the address field ( ACDR) of the JMPP target is set from zero 
to negative one and the jump pointer (JMPP) is set to nil. 
This signifies to other routines that this jump has been 
resolved. The process continues until the end of the code 
data is reached. 

The next step in resolution is to perform a special 
brand of TI-59 "peephole 11 optimization. The most common 
forms of excess parentheses pairs are removed. Such forms 

as " (RCL nn) " and "(2.3333-12)" will have been generated as 
a result of parsing even simple assignment statements and 
expressions. Since the parentheses in these expressions are 
unnecessary and use up valuable program steps, they are 
removed, provided they are not referenced by a jump pointer. 
If referenced by a jump pointer, the node's address field 
(ADDR) value will be 9 instead of -1 or -2. Removal of 
these will cause dangling jump references. 

looping and branching generate many place holding 
NOP keycodes. These are also an unnecessary use of program 
steps. However, remember that almost all of these were 
generated to anchor or project jump pointers. Thus, before 
removal their jump pointers must be reset. Procedure OSQNOP 
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passes ever the code data twice, once to reset all jumps to 
and from NCP* s, and the second to locate and remove the 
NOP's. It is important to realize that there is a distinc- 
tion between a useless NOP and one which is acting as a 
label identifier or a jump address place holder. Because 
the TI-5S requires that particular keycodes be followed by 
labels, register numbers, or addresses it is easy to check 
keyccde usage. This information is actually loaded during 
initialization into the UNIT field of the CODETEXT record. 
It is an integer 0. . 3 which indicates whether the TI-59 code 
node is a one, two, three, or four keystroke instruction. 
This information is used to pass over keycodes which are 
required parts of a larger instruction. 

The final stage of resolution is to convert relative 
jump (pointer referenced) addresses into absolute (numer- 
ical) addresses. This must be the last step because 
previous code in se rticn/del etion routines constantly change 
absolute addresses. At this point no code insertion or 
deletion occurs. Procedure RESOL V 2_ADDR passes over the 

code data twice. The first pass fills the address fields 

(ADDR) of ail code nodes in sequential order starting at 
000. New that each exact absolute address is known, all 
jump pointers which are still marking address space and 
referencing a destination node can be resolved. A TI-59 
coded address consists of two parts. During the second pass 
procedure INSERT_JMP ADDR is called at non-nil jump pointers 
to read the destination address, split it into its two 
integer parts, and insert the parts into the address space 
nodes. Cnee all jumps have been resolved, the code data 
structure is ready fer output and linking. 
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10. Inout/Qutput 

In this subsection we discuss two input/output 
related issues: I mplemanta ticn of I/O constructs and OPTION 

messages to the compiler. The limited capabilities of the 
calculator required that file handling and string handling 
aspects of KBASIC be eliminated from our subset. For 
similar reasons the I/O constructs which could be translated 
from WEASIC required restrictions. 

While the WEASIC I/O statements INPUT and PRINT 
normally provide for file management, the 3AX59 implementa- 
tion cannot. The cross-compiler recognizes PRINT followed 
by any number of simple expressions separated by commas. 
Ihe TI-5S code generated will evaluate these expressions and 
print their values (to either the display register cr the 
Texas Instruments PC-100 Frinter Cradle) . On the ether 
hand, the INPUT statement takes any number of variable iden- 
tifiers separated by commas. For each identifier in the 
INPUT list, the TI-59 program halts execution, displays the 
register assignment for that identifier, and stores the 
input value entered by the user in the register assigned. 

Many programs require the reading of large amounts 
cf data, often at the start of execution. In this situation 
the INPUT statement tends to generate an excessive amount of 
program step overhead. Unless the program is designed to be 
interactive, this overhead unnecessarily increases TI-59 
program size. In order to provide a more space efficient 
means cf data entry, a limited translation of the WEASIC 
DATA and READ statements was designed. In some sense, these 
statements provide a substitute for file handling. The DATA 
statements are placed at the beginning of the WBASIC source 
program. Each statement may be followed by numeric data 
items separated by commas. The total number of data items 
in one program is limited to the number of unreserved 
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registers available in the calculator (based upon the system 
parameter REG3AS2) . If this limit is exceeded, a warning 
message will be issued. READ statements take variable iden- 
tifiers and may be written with the DATA statements, 
however, the number of variables input to READ statements 
should never exceed the number of data items provided by 
DATA statements. This condition will also cause a warning 
message and further EATA/READ statements will be ignored. 
The parse routines make register assignments to the vari- 
ables in the READ statements, and concurrently build a list 
which maps the data items to their respective registers and 
variable names. This list is one form c-f compiler output. 
Using the list the user can pre-load TI-59 registers with 
numeric values and be assured that they will be in corre- 
spondence with the translation of variable names. Mere 
importantly, no TI-59 program steps are used for this 
initial input. In fact, the data could be read from a 
magnetic card into a memory bank prior to execution. 

As we have previously implied, there are many forms 
of output which can be generated by the cross-ccu oil er. 
Additionally, the user will probably have to do some debug- 
ging. He have chosen tc provide a primitive set of tools 
and options which can be toggled on or off from outside the 
BAX59 source program. The toggles are set or reset by using 
the OPTION statement in the WBASIC program. Caution! Dc 
not confuse this statement, which is unique to the EAX59 
cross-compiler, with the W 3 ASIC OPTION statement. They are 
not the same. BAX59 does not recognize WBASIC OPTION param- 
eters and HEASIC does not recognize 5AX59 OPTION parameters. 
Table III lists the possible options available tc BAX59 
users. To toggle the options, simply include an OPTION 
statement as the first line of the program to be translated. 
Desired parameter settings should follow the OPTION reserved 
word separated by spaces. Positive parameters set the 
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TABLE III 

BAX59 OPTION Statement Parameters 



Parameter Option Default 



±0 Generate linker interface file false 

±1 Generate code for PC-100 orinter true 

±2 Optimize out unnecessary parentheses true 

±3 Optimize out unnecessary NOP's true 

±4 Translated TI-59 code to list file true 

±5 Image of svmtol table to list file false 

±6 Contents of code structure to list file false 
±7 Each lexical token to terminal false 

±8 Each lexical token to list file false 



i 1 



toggle true; negative parameters reset the toggle false. In 
the case of the zero parameter, the sign has no effect. 

As a final note, an OPTION statement may not be 
placed in the WEASIC source program until it is ready for 
translation. Also, placing an OPTION statement in any line 
but the first may produce unpredictable results. 

E. LINKER 

The linker's purpose is to produce a segmented version 
of the compiled code and present the code in a format that 
is user friendly. The informal strategy used to accomplish 
this was discussed in the preliminary design phase of 
Chapter III. The detailed design that supported the solu- 
tion strategy called for the linker to operate sequentially 
through three major phases. In Figure 4.5, the contour 
diagram for the linker is presented. The preprocessor phase 
of the linker includes actions from some of the SYSTEM 
UTILITY procedures and the BLD_SSGTBL procedure. The 

remaining two procedures, COALESCE and INSTRUCTIONS, 
accomplish the segmenting and postprocessing activities. 
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SYSTEM UTILITIES 
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These procedures a rs enclosed tn dashed lines because they 
represent a conceptual grouping of systeai uttltty presses. 
As such, no actual scoping lines exist share the cached lln 
line occurs. 



BLD.SEGTBL 



COALESCE 



INSTRUCTIONS 



Figure 4.5 Linker Contour. 
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Each cf these major actions were described in the prelimi- 
nary design phase in Chapter III. The detailed design of 
these specific operations will be presented in the next 
sections. Only those major design considerations required 
for understanding the operation of the major operative 
phases will be presented. 

1 • Preprocessor 

As was mentioned in the preliminary design, the 
primary purpose of the preprocessor is to reproduce the 
compiled linked code list and generate a table that repre- 
sents the sequential segments of the compiled code. 

The informal strategy called for a two step opera- 
tion. In the first step, textual integer pairs are read 
from an input file into a data record. Each record is 
linked to the preceding record forming a linked list which 
reproduces the linked list of code generated by the 
compiler. The next step evaluates the linked list to deter- 
mine where the sequential segments are located. Information 
concerning each sequential segment is stored in another 
record and linked to the preceding sequential segment 
record, thus forming a linked list of sequential segment 
descripticn records. Evaluation for sequential segments 
would occur by TI-59 labeled subroutines. Each list of 
sequential segment records would be pointed to by a header 
record which contains the subroutine name. Each cf these 
subroutine name header records would be linked to ether 
subroutine name header records in the same order in which 
they were detected in the generated code. 

Two data structures were needed to support this 
strategy. The first structure comprises a linked list of 

records. Each record contains all the information that is 

contained in one program step in the TI-59 calculator, 
including the address of the instruction and the instruction 
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integer cede. Each record is linked to the following r=ccrd 
by a dynamic pointer, which captures the sequential nature 
cf the compiled code. Another dynamic link is provided for 
those records containing keycodes that may cause the flew of 
contrcl tc change ficm a sequential flow. The generated 
linked list of records is a complete internal representation 
cf the compiled coda. 

A second data structure is needed tc represent a 
sequential segment cf code. Vital program contrcl flow 
information must be captured by the structure sc that 
segmentation rules may be applied during linker processing. 
To accomplish this a sequential segment table was developed 
utilizing a record format to describe each segment. This 
table record holds data such as segment start address, stop 
address, whether the segment is covered by an iterative 
backlcop, a list of forward jumps and a list of subroutine 
invocations that originate within the segment. Each one of 
these records is linked to the following sequential 
segment’s record. In addition, the sequential segment 
records are grouped according to subroutine. That is to 
say, only those sequential segments residing within cne 
11-59 subroutine definition are connected together in 
sequential order . 

The linked sequential segments are tied together by 
other records of the same basic type but different variants. 
Each subroutine grouping of sequential segment records is 
pointed tc by a linked list of header nodes. These nodes 
contain the name of the subroutine and the subroutine defi- 
nition address. Each header is linked to another subroutine 
header in the same erder in which subroutine definitions 
occur within the generated TI-59 code. 

Tc capture information relating tc forward jumps, a 
variant of the sequential segment record is used tc build a 
forward jump list. This list contains the originating 



address cf the forward jump and the address of the instruc- 
tion to which control is transferred. Because the actual 
jump address is used, the link to the jump location is 

termed relative. Each jump node is dynamically linked to 
following jump nodes to form a jump list. This list is, in 
turn, dynamically pointed to by the sequential segment in 
which the jumps originate. 

To capture information regarding subroutine invoca- 
tions, the same type cf structures is used as for the jump 
node lists. The only difference is that the subroutine 
lists point to the invoked subroutine in a dynamic manner. 
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keyccde portion cf the compiled code of an instruction that 
represents a possible change in control flow. When one is 
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Figure u.6 System Utilities Contour. 
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detected, a jump pointer (the indirection pointer) is set 
pointing to the record containing the next TI-59 program 
step to he executed. 

The operations which create the second data object 
are a little mere complicated and are contained in Figure 
4.7 The action of building the sequential segment table 
data structure is broken down into three steps. The first 
step begins the formation of the table while the second step 
completes segment detection. The last step captures ether 
information and ensures that internal interfacing require- 
ments are met. 

The first part of this procedure is accomplished 
through the BL D_ PRIMS EGT BL procedure. This operation passes 
over the compiled codelist structure and determines where a 
subroutine starts, steps, or issues a back jump command, and 
locates the terminal points of the back jump commands. Each 
of these points is called a critical point. When detected, 
each critical point is inserted in the segment tabis data 
structure under the header node containing the TI-59 subrou- 
tine code name which is being processed. In addition, each 
of the jump commands with their initiation and termination 
points are inserted into the structure. This completes the 
first major step. 

The second operation is accomplished through the 
BLD_AEVSEGTEL procedure. In this procedure the initialized 
data structure is fleshed out. Up to now only critical 
points have been inserted. As these are points and are not 
double ended, segments have not been delineated. This 
procedure examines the segment data structure and adds 
points to delineate where a segment starts and ends. It 
does this by subtracting one from the point following it and 
taking this to be its end point. This results in a series 
of records which are all covered by an iterative backlocp, 
with the exception cf the first record. This is noted in 
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Figure 4.7 BLD_SEGTBL Contour. 
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area where the call or invocation occurs. Second, 
SET T_ LENGTH checks that each sequential segment dees not 
violate the memory size limit of the calculator. It dees 
this ty checking each sequential segment record and calcu- 
lating a size. If the size is too great, then the segment 
is divided in half and a new segment is inserted into the 
table. This is not dene for segments that are covered ty an 
iterative lcop as this would represent a break cf an itera- 
tive loep. ether actions that must occur include readjusting 
forward jump lists and subroutine invocation lists if a 
division dees occur. One interesting point worth noting is 
that when the length check is made additional steps must be 
allocated to the actual length to compensate for the possi- 
bility of prompting code being added for an invocation to a 
subroutine that does not currently reside in memory. This 
is the purpose of L_ECSSBRK in Figure 4.7. 

The data structure operational procedures access the 
data structures through pointers which point to the struc- 
tures. The pointer to the compiled code list is referred to 
as 3UILT_CCDE. The pointer to the sequential segment table 
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structure is called SEGT3L. These are the only data which 
are passed among procedures. One point to remember is that 
SEGT3I pcints to the header node list containing the names 
of the subroutines. The actual sequential segment lists 
reside underneath the header nodes. 

Since understanding the data structure and its 

construction is essential to understanding the remainder of 
the linker, an example will be examined to demonstrate the 
preceding sections. 

In Figure 4.8 a sample topology of a TI-59 pregram 
is given. It includes four subroutines of various sizes and 
with varicus control flow indirections. In looking at the 
diagram it is important to note the absolute address loca- 
tions given, for these will be critical to understanding the 
development of the sequential tables. 

As was mentioned, the first operation is the 

restructuring of the generated TI-59 code. Figure 4.8 
represents approximately this structuring. The actual code 
line is rebuilt internally in the machine and is pointed to 
by pointer EDI LT_CO D E . 

Figure 4.9 is the completed sequential segment 
table, without the linked header node list. To understand 
the concept of sequential segment a comparative look at 

Figures 4.8 and 4.9 must be made. In Figure 4.9 the first 

sequential segment is defined as being between addresses 000 
and 049. This is reflected in Figure 4.8. When locking at 
the sequential record one sees that the forward jump infor- 
mation is captured in the forward jump list node which, in 
this case, is only one node long. When looking at the 

second sequential segment one notes that there is a nested 
back jump. The sequential segment is defined to be that 
segment which is covered completely by back jumps. In this 
case it extends from 050 to 199. If for some reason the 
back jumps shown in Figure 4.8 did not fully contain each 
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ether, that is to say, one jump started at 199 and stepped 
at 090 and the other started at 150 and stopped at 050, then 
the cover would still extend from 050 to 199. The reason is 
that this region of code is probably caught in an iterative 
loop and cannot under any circumstances sustain a break 
within this cover. 

Another point to be mads is the manner in which each 
subroutine's sequential segments are recorded together. In 
addition each invocation is recorded as is each forward 
jump. During the completion of the table, invocations to 
the same routines from different invocation locations are 
deleted, thus leaving only one link to the called routine 
for that sequential segment. 

A final point concerns the recursive nature of the 
structure. By assuming that the first subroutine is the 
main routine and that all other lower level routines are 
below it (in the sense that they are pointed to from invoca- 
tion nodes) one can see that any routine used to combine 
segments can be used on any subroutine's sequential 
segments. This opens the door for recursion to be used in a 
bottom up recombination scheme to be discussed later. 

Many problems were encountered in the development of 
the preprocessor phase of the linker. Only the most diffi- 
cult or annoying will be discussed. 

Cne of the first problems concerned the multiple 
meaning of program steps in the generated TI-59 code. A 
separate TI-59 program step may be either a command, 
register number, flag number, or part of an address. The 
meaning is dependent on the last valid command. Commands 
can affect the interpretation of a program step as far as 
three step positions away (analogous to the concept of cue- 
byte, twe-byte, and three-byte instructions in assembly 
code) . This had to be taken into account when doing any 
operation requiring an interpretation of the code. This 



r 







Figure 4.9 Sequential Segment Table. 
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resulted in special cede sets being initialized and special 
routines being written to print our labels and move the 
compiled cede list pointers. All of these are shown in 
Figure 4.6. 

Improvements in this operative phase could be real- 
ized. In the early stages it was decided to separate the 
compiled code lists from the segment table lists. This was 
to avoid accidental tampering with the compiled code, since 
the integrity of the compiled code was the paramount consid- 
eration. It would he possible to make the compiled code 
lists a variant of the segment table. Then, instead of 

having relative pointer indexes to compiled code addresses, 
an absolute pointer could be used. This may reduce the size 
cf the program significantly in that types would new be 
compatible and a reduction in the number of output routines 
due tc the different types would be realized. 

2 . S eg men tor 

After the input file has been preprocessed then the 
linker passes into the segmenting phase cf the operation. 
The routines that support this phase are built into the 
Pascal procedure called COALESCE depicted in Figure 4.10. 

The informal strategy called for the sequential 
segments cf a subroutine to be combined to form larger 
sequential segments. This recombination would be allowed as 
long as memory limits were net violated. This required that 
invoked subroutines be combined first before the caller so 
as to make room for the invoked routine’s code. If the 
invoked routine could net reside then a break was placed in 
the dynamic link to the invoked routine and prompting cede 
added tc the caller's length for memory size checking 
purposes. 
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This strategy has one major requirement : the 

invoked routine must be recombined before the caller car. be 
recombined. For this reason a recursive solution was 
adopted. In this solution, the main subroutine is recom- 
bined. The first part of the recombination process is to 
ensure that invoked subroutines will reside with the calling 
sequential segment. If a subroutine is enccunterd that is 
not combined or coalesced, then the program will recurse on 
the new routine. Recursion will close out upon completion 
of coalescing of a particular routine. When all the sequen- 
tial segments have been checked then adjacent segments are 
combined . 



Another part of the strategy calls for the combina- 
tion process to stop when a size limit is enccunterd. when 
this happens then seme sort of break notation must be used 
to mark where the limit was exceeded so as to prevent 
production, of code segments that exceed the memory capabili- 
ties of the calculator. After the break has been set then 
the process of recombination begins on the other side cf the 
break with the ncn-ccrobined segments, starting again with a 
memory limit of zero. 

This process cf breaking and checking limits results 
in the sequential segment table containing break points. 
These break points delineate the exact locations where 
program segmentation will occur. These points will mark 
those portions cf code which can fit in the calculator 
memory according to the rules of segmentation outlined in 
the preliminary design. 

The data structure that supports this strategy is 
the sequential segment table. No other structure is used. 
The crly addition tc the structure is the node referred to 
as a subroutine invocation break node. This node is 
inserted between a subroutine invocation list node and the 
invoked subroutine sequential segment table. All ether 
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changes to the structure involve removing nodes ar.d 
combining adjacent information into one node. 

There are two major activities that support the 
above strategy. The first activity is the checking of a 
segment and the second activity is the combining of adjacent 
segments. Overseeing these activities is a single driver. 
This topology was suggested by the recursive nature of the 
solution. The procedures which support these activities are 
shown in Figure 4.10. 

The driver is represented by the Pascal procedure 
COALESCE. This routine is called whenever a new subroutine 
is encountered that has not been combined or coalesced. The 
interior Pascal procedure CHK_SEGSIZE verifies that the 
specific segment it is looking at, together with all called 
subroutines on the subroutine invocation list for that 
segment, will reside in calculator memory. This routine 
uses SBRSUtl and SBHSUHLINK to determine the lengths of 
invoked routines. It recurses mutually by calling COALESCE 
in the event that an invoked routine has not yet been coal- 
esced. It determines this by looking at a boolean field in 
the segment table. This field is set true if the subroutine 
has been coalesced. The other procedure, COMBINE, accom- 
plishes the actual combination of adjacent sequential 
segments. It uses the length predictor routines 

M0D_S 0 MTCTF_ JM P and MOD_S UMTOTSBH to predict a combined 
length which takes into account any changes that might occur 
in the subroutine invocation or forward jump lists. If the 
combined length is within limits then a recombination 
occurs; if not, pointers are advanced. This means that any 
sequential segment records which fellow the initial sequen- 
tial segment records are part of a new memory calculation. 
In ether words, any sequential segment links that are not 
nil represent a break between the linked sequential 
segments. Upon exiting COALESCE, the subroutine that has 
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just been coalesced is marked as such in the sequential 
record's boolean field reserved for that information. 

To visualize the result of the segmenting phase 
another lcck at the example is provided. Figure 4.11 repre- 
sents a segmentation based on a memory limit of 550 steps. 
Note that each of the invoked subroutines has been coalesced 
into a single sequential segment. also note that a break 
was made in the main subroutine. This is shown by the fact 
that the main routine is net a single segment record. By 
examining the table it can bee seen that the routine 
labelled "C" will be copied twice when the two memory sized 
segments are produced. 

To interface between modules in this recursive envi- 
ronment several things were assumed or used. The first was 
that the data structure would serve as the repository of 
global data. In addition, a variable would be used to keep 
track of the current size of the combining memory program 
steps. This variable was passed as a parameter in order to 
preserve its value throughout the recursion. All pointers 
were passed as local parameters. This preserved locations 
in the data structure as the algorithm progressed through 
the different levels of recursion. 

These operations did require some other work in 
order to obtain valid data that would correctly calculate 
code lengths to include multiple copies of subroutines. The 
problem occurred when there were multiple invocations to the 
same subroutine from different segments (or even different 
subroutines) that up to now were ail included in the same 
memory limit calculation. To solve this another field was 
placed in the segment record to indicate whether or not the 
particular routine had been included or not in length calcu- 
lations. Whenever a sum was calculated and a routine 
included then the field was set true. Whenever a new memory 
limit was reset back to zero following the implantation of a 
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Figure 4.11 Coalesced Segment Table. 
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break point, a SYSTEM UTILITY procedure was used to reset 
all the included fields back tc false. This means than only 
one ccpy cf a subroutine would be considered for each calcu- 
lator sized memory computation. 

Future implementations should develop a better 
method for recording whether a segment is coalesced or 
included. The inclusion of this field in the segment table 
record was a "quick fix. M This fix resulrs in wasted 



storage as 


it is only used 


in the 


first record for each 


subroutine. 


An improvement 


would be 


to use another variant 


record tc 


record all current 


data , 


with the exception of 



coalesced and included information, for all other sequential 
segment nodes other than the first sequential segment node. 
This would save memory. 

3 • I^st Pro ces sor 

After the segmentation phase, the linker passes into 
the pest processor phase. It is this phase that provides the 
required output for the user. 

The informal strategy divides this phase into three 
distinct operations. The first operation designates the 
start of each calculator sized segment of code. These 
segments, which meet the memory requirements of the calcu- 
lator, are referred to as memory modules. The second 

operation copies the required code into each segment and 
inserts any segmentation prompting instructions that are 
needed fer successful code execution. The last operation 
consists cf ouputting the segmented code in a user friendly 
instruction sheet format. This completes all linker 

actions. 

In order to support the informal strategy, several 
data structures are used, two of which were described 
earlier. They are the segment table and the compiled code 
list. At this point the segment table has been coalesced 
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and contains the locations cf the segmentation breaks that 
will minimize card reads. The compiled code will be copied 
by segment as delineated in the segment table. A third 
structure is built in this phase and a fourth structure is 
provided with the program. 

The third structure is refered to as the memory 
module data structure. It is a Pascal variant of the 
segment table, which allows compatible pointer references 
between the two objects. The structure consists of a linked 
list of head nodes, which are named by respective memory 
module number. They represent one calculator’s worth cf 
available memory programming steps as determined by the 
calculator partition. Each node of this linked list points 
to two locations. Cne location is to the first sequential 
segment table record node following a segmentation break. 
The second link is to the copied code that will make up the 
programorirg steps of the memory module. In Figure 4.11, 

there would be two memory module header nodes. The first 
header ncde always pcints to the first sequential segment of 
the main subroutine. In the example this first memory 
module would be pointing to the node beginning with address 
000. The second memory module node would point to a record 
that fellows a break. This would be to the sequential 
segment ncde beginning with address 290. Just as there are 
no other breaks, there are no ether memory module nodes. 
The other pointers would point to a linked list of code. 

The copied compiled code list is a part of the 
memory module data structure. It is another Pascal variant 
cf the same record type. This list is similar in structure 
to the compiled code list reproduced during the preprocessor 
phase. The only difference is in type. Another difference 
is that there are no jump pointers or dynamic pointers indi- 
cating a change in flew of control. The structure is just a 
linked list of sequential code. This structure is pointed 
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to by the memory module header node. Another point to be 
made is that the linked code list., when completed, dees 
contain ether code that is needed for prompting. As such it 
is r.ct a one for one copy of the compiled code list, 
lastly, a look at Figure 4.11 will show exactly the segments 
of code that can be expected to form the two memory module 
structures. By looking at the sequential segment nodes and 
following their dynamic pointers of the subroutine lists all 
required code start and stop addresses are given. It is 
this "lock down" facility of the sequential segment table 
that make it so useful. 

The fourth data object is provided with the linker 
program. It is a textual file which contains text messages 
which are used by the linker. Each message is delineated by 
a $XXX where XXX is an integer. The linker, when provided 
the number portion cf a message, can easily locate the 
message. Cnee located it can either extract values or copy 
the message verbatim to an output file. This is what occurs 
during the formatting of the instruction messages. 



The operations that build and manipulate the data 



structu 


res function in three 


phases . 


Figu re 4.12 


is 


The 


contour 


diagram of the sub 


routine 


that support 


s tl 


i ese 


operations. 












The firs- operation 


is the 


constr uct ion 


cf 


the 


heads r 


memory module nodes. 


This is 


accomplished 


bv 


the 



Pascal procedure BLD_aEM0DULEN0D2S depicted in Figure 4. 12. 
This procedure traverses the segment table and locks for 
break points. When it finds one, it checks to see if the 

break has already been detected. If it has net been 
detected then it builds the header node and assigns it a 
memory module number. The reason for the check is that the 
traversing mechanism is based on recursion. In this 
strategy, traversing is begun with the mam subroutine. In 
Figure 4.11 this would correspond to subroutine L3L A, nods 
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start address 000. It then searches right along the same 
subroutine tc detect all breaks of than subroutine. Then it 
resets back to the start of LBL A and begins to check the 

subroutine list of each node that comprises LBL A. 

Recursion is implemented at this point, when the subroutine 
link is traversed and another subroutine is discovered. If 
a break is discovered in the subroutine list then another 
memory header node is built and the program bypasses the 
break and recurses on the next subroutine. This traversal 
mechanism leads to multiple discoveries of the same breaks. 
Consequently, the check is made to ensure multiple copies 
are net placed in the memory module header list. 

The next operation consists of copying code from the 

compiled list, resetting address key codes for jumps and 

adding prompting code tc each specific memory module code 
list. Figure 4.12 contains the Pascal procedure 

BLD_MEMODUL£CODE which accomplishes the above tasks. This 
is done by moving down the memory module header list in a 
sequential fashion. At each header, the link to the segment 
table is traversed tc determine exactly what segments of the 
compiled cede are tc be copied. This is the duty of 
BLD_ A_MEKCR I in Figure 4.12. Once the start and step points 
are determined and copied then recursion is utilized to 
traverse the subroutine links of the sequential segment 
table to obtain the required copies of resident subroutines 
to support the functioning cf higher level segments. During 
this operation the segment table is used as a ’’check pad,” 
that is, copies are marked included after being copied and 
are reset upon completion of copying. Another function 
accomplished during the processing of a memory module 
segment is the addition of prompting code. Lastly, 

addresses are reset and justified to include the resetting 
cf jump address key cedes to reflect new jumps to internal 
prompting messages and the absolute address of the origi- 
nally compiled cede list. 
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Cnee :he mencry module data structure is completed 
then the structure is presented to the user in at instruc- 
tion type cf format. This is the purpose of the Pascal 
procedure OUTPUT_INSTE. This procedure utilizes two data 
structures. It uses the provided message file structure and 
the memory module structure. The first action is to output 
the instruction introduction. This the procedure does 
through the use of the message file and the SYSTEM UTILIT ITY 
programs FIND_MSG, PFINTLN_MSG and PRINT_LINEMSG . These are 
depicted in Figure 4.6. These procedures allow the linker 
to copy verbatim messages in preformattsd form. Once this 
is done the procedure copies the codelist from each of the 
memory module lists cf code. Once a specific mcaule is 
copied the driver routine, CUTPUT_MSGF1 , prints cut specific 
information to delineate each memory module. After this 
action is accomplished, the procedure traverses the segment 
table and prints out additional user information that will 
aid the user in the execution of his program. 

Interfaces between modules are accomplished as usual 
with pointers. These pointers point to their respective 
data structures. Global information is recorded in the data 
structures or in special global variables which are passed 
as parameters during recursive operations. 

Cr.e major problem that was encountered and solved in 
an interesting manner concerns the formatting of the output. 
The vast amount cf instructional information that was 
required to be output made inclusion in the source cede 
ridiculous. To solve this, the message file system was 
developed. This system consists of a text file containing 
preformatted messages and a several procedures located in 
the SYSTEM UTILITIES contour in Figure 4.6. Each message is 
delineated by a "$" and a number. Two types of messages can 
be processed. One kind of message results in a complete 
copy frem the first line following the message code ( 3XXX) 
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down to the line preceding the next encoutered. The 

ether messages are one-line messages which copied until the 

at the end cf the message. This gives the programmer 
the capability to write out blocks of text and to write cut 
text and computer generated information on the same line. 

Another capability provided by the package is the 
ability to search out messages from other files. The proce- 
dure FINC_MSG takes as parameters a file as well as a 
message number. This facility allowed the linker tc be 
loosely ccupled with the cross-compiler by interfacing with 
a message number coded file produced by the cross-compiler. 
All that the linker needed to know was under which number a 
required piece cf information was coded and the interface 
file name tc affect an interface. 

An improvement might be realized in the output of 
the generated code list. Currently there are two separata 
sets cf procedures used to output code lists. This was 
primarily due to typing differences. However, the seccnd 
set cf print procedures located in INSTRUCTIONS (see Figure 
4.12) is probably mere efficient. Furthermore, if the 
reconstructed code were changed to be a variant of the 
segment table structure then a reduction in Pascal code 
lines would be realized through the elimination of a code 
list group cf printing procedures. A further increase in 
efficiency may be realized in any operations requiring use 
cf the reconstructed compiled code list. 

C. INTERFACE ENGINEERING 

In any detailed design, careful consideration must be 
given to interfacing criteria. Interfacing criteria should 
be as explicit as possible, however this is not always 
possible. Sometimes, design decisions or engineering inter- 
pretations have implications that affect other modules or 
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submodules. These are generally of an indirect nature in 
that the interface is implied in the system structure ar.d is 
not explicitly passed from module to module. 

These types of interfaces surface in the detailed design 
phase. Decisions regarding TI-59 address labelling and 
structure cf the TI-59 subroutine greatly affected the 
design. In addition, assumptions about the use of struc- 
tured programming and the prohibition of recursive WEASIC 
programs facilitated system design. Simple redefinition of 
the use cf WEASIC commands READ/DATA provided any easy form 
cf I/C, tut again was an implied interface. These types of 
implied interfaces will be examined in the following 
sections since they are critical to understanding the system 
operations and to future maintenance. 

1 . Addressing; TI-59 S3 R 

Cne implied interface resulted from a decision on 
the mechanism of subroutine invocation which would be used 
by the system. This decision arose from the fact that the 
TI-59 calculator may invoke subroutine code in several 
different ways. 

Tc understand why a decision was required a lock at 
the subroutine naming conventions and procedure for invoca- 
tion are in order. A subroutine name is composed of two 
program steps. The first step is the keycode 76. This is 
the LEL code. It tells the calculator that the next key is 
a subroutine name. The next program step is the actual 
subroutine name. The keys which may serve as actual subrou- 
tine tames may be one of two types. The first type comes 
from keys which are undefined. That is tc say the keys are 
net used by the calculator to perform calculator functions; 
they are strictly reserved for naming subroutines. The 
ether type cf name comes from defined keys. 3y this we mean 
that the calculator uses the keys in some fashion in 
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addition to naming subroutines. rhssa keys are overloaded: 
they can have two meanings. 

Tc define which meaning is to be interpreted the 
calculator requires that a subroutine definition be preceded 
with a special key called the- label key. This alerts the 
calculator to the fact that the next program step is a 
subroutine name. Tc invoke a subroutine, the calculator 
requires double meaning labels to be preceded with a special 
key called the invocation key. This alerts the calculator 
to the double meaning much as the label key. For undefined 
keys, this alert key is not required though its use will not 
alter any transfers. There exists another method of 
invoking subroutines. This calls for the invocation alert 
key to be followed by an absolute address. It is the 
duality of meanings which presented problems. 

Tc overcome these problems two decisions were made. 
The first decision required that all undefined keys be 
treated as if they were defined keys. This resulted in only 
one case tc be developed tc handle subroutine naming. The 
penalty for this decision is that an added step was gener- 
ated whenever an undefined key was used as a label and a 
call to that label was made. The other decision disallowed 
the use of absolute addresses in the subroutine invocation, 
ill invocations would use labels. This decision carried a 
penalty in terms of execution speed. The calculator must 
search program step memory to locate named subroutines 
whereas address references can be reached directly. On the 
ether hand there are several benefits. One program step was 
saved since a label requires only one step whereas an abso- 
lute address requires three. The other benefit permitted 
the definition of the invocation alert key as a two step 
instruction and not a two or three step instruction. This 
was the primary reason for this implementation. All of the 
system was designed with this decision in mind. 
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2. Structured Subroutines 

A problem aicse with the defining of subroutines. 
The calculator permits subroutines to be defined within 
ether subroutines. Though this in itself is net extraordi- 
nary, the fact that nested definitions may be closed cut 
with the same subroutine return key is not usually 
permitted. This type of structure made subroutine detection 
for segmentation purposes very difficult. 

To solve this problem it was decided to allow only 
structured subroutine definitions. That is to say, only one 
return was permitted for each label. In addition, it was 
decided to disallow nested definitions. In fact, the deci- 
sion was made to require that the programmer position his 
main program first in tfEASIC source code and to have all of 
his subroutines follow in the manner described above. 

This interface design decision forced a specific 
program structure. This structure was easy to detect, easy 
to compile and easy to segment. These benefits were real- 
ized at a cost of net being able to generate efficient or 
"tricky" code and of reducing the programmer’s leeway in 
developing his WEASIC source code program structure. ' 

3. Recursion 

Although TI-59 calculator instructions tend to be 
evasive on the subject, recursive programs can be executed 
in a few special situations. Some BASIC languages support 
recursion, ethers ac not. Although the WBASIC language 
supports recursion, limitations imposed by the calculator 
forced us to disallow the translation of recursive source 
programs. Other reasons for this decision involved complex- 
ities which such programs would present to the linker. 
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4. 



Inpur/Ou tpu t 

The development of the ir.put/oucput structure »as 
designed arcur.d the three major limitations of the calcu- 
lator: programming steps available, storage registers 

available, and the calculator numeric display. In order to 
develop an efficient system to allow for input and output, 
restrictions were placed on some WBASIC commands. 

Since the calculator display allows only numeric 
input and output, then any information passed between a 
human operator and the calculator must be in numeric form. 
Prompts used to communicate with the human must be imbedded 
in the compiled code. In the case of input and output, 
these prompts have an overhead in that they use up valuable 
programming steps. For example, with each INPUT command in 
WBASIC, a total of seven steps are generated to produce a 
prompt and store a value in the calculator. The problem 
with this occurs when large numbers of variables need to be 
input. If 60 variables are required for input then the 
INPUT command will generate 420 steps. This is clearly 
unacceptable. 

Tc solve this problem the semantics of the W EA SIC 
commands READ and DATA were modified. Use of these commands 
within a source pregram does not increase the number of 
program steps in the translation. A table of WBASIC vari- 
able names assigned to TI-59 registers is produced and 
placed in the interface file. This allows the human to 
input ail of his data prior to execution without having to 
pay the penalty cf generating extra prompting code. 

Another decision concerns the location cf the DATA 
and READ statements: All DATA/READ pairs must occur 

together at the beginning cf the program. The reason for 
this should be clear. It would be impossible to place the 
commands in the middle of the program because they would 
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have no effect. With the exception of a single NO? (’which 
is eliminated during peephole optimization) , these commands 
generate no code. As a result, no run-time modification of 
variables can occur. Furthermore, DATA/READ statements 
placed within loops would invalidate the DATA to READ 
mapping, a static table. 

The whole purpose of the redefinition of these 
commands was to give the user an optional form of I/C. This 
was expected to increase the efficiency of the generated 
code. These decisions influenced much of the design cf the 
system. 
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V. TESTING 



The test program and its generated output are provided 
in Appendices K through P of this report. The test program 
was chcser. for several reasons. The first reason was to 
test the actual ability of the system to produce a usable 
TI-59 coded program. The second reason was to attempt to 
obtain an idea as to the efficiency of the system-generated 
code. The following sections present a description of the 
test program and comment on the efficiency of the generated 
cods . 



A. TEST EROGRAM DESCRIPTION 

In developing a test program several considerations had 
to be taken into account. The first consideration required 
that the generated code be verifiable. To verify the gener- 
ated code, it was decided to program a solution to a problem 
for which verifiable solutions existed. Verification would 
be achieved if the system- generated solutions matched these 
of the existing solutions for the same inputs. The second 
consideration was to attempt to arrive at some sort of effi- 
ciency comparison between the system generated TI-59 program 
and an optimized hand coded TI-59 program. 

The test problem which was selected fit the above 
criteria. First of all, solutions to known input values 
existed. This ensured proper verification of the generated 
code. Secondly, a highly optimized hand coded solution to 
the problem existed for comparison. The problem selected is 
called the "Gunnery Problem." 
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The gunnery problem is to determine firing data for a 
howitzer cannon. It consists of inputting the following 
data: piece location, target location, piece corrections and 
howitzer ballistic coefficients. The output which is gener- 
ated consists of time to target, elevation to achieve target 
hit and the lateral deflection (an angular measurement) to 
align with the target. 

The solution involves calculating a range to target as 
well as an azimuth to the target. The azimuth is then 
converted to a lateral deflection, which is understood by 
the piece to be the correct azimuth on which to align. 
Next, three quadratic equations are solved to determine 
elevation, time of flight and shell drift. These are 
applied to the lateral deflection and to the piece eleva- 
tion. A decision based on the calculated range to target is 
needed to ensure correct ballistic coefficients are used in 
the computation. These coefficients are based on the charge 
which is to be fired to achieve the range. 

The hand coded version solution has been in use since 
1976. The accuracy cf this version was checked by artillery 
ballistic tables and by the Field Artillery Digital Computer 
(FADAC) , the recognized source of all correct firing data. 
Ey using this solution, vast quantities cf test input and 
output were available for program verification runs. 

The hand developed version is highly optimized. For 
example, the hand version stores eight numbers in four 
storage registers. This is accomplised by storing the 
numbers on either side of the decimal point in a real 
number. This real number is then decomposed in a subroutine 
to obtain the correct number. In addition, this version 
makes use cf calculator commands that were not implemented 
by the EAX59. For example, there is great use of the indi- 
rect stcre, decrement and skip on zero and polar to 
rectangular commands. All of these features made the hand 
coded version a highly optimized program. 
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E 



TEST COMMENTS 



The W E ASIC solution was coded using basically the same 
program structure as the hand coded solution. This source 
code is presented in Appendix K. The interface file gener- 
ated by the cross-compiler is presented in Appendix 0. The 
final output generated by the linker is presented in 
Appendix F. 

In verifying the accuracy of the generated cods# many 
runs were made using input data for which known solutions 
existed. There were no deviations from the known solutions 
in any of the test runs. The conclusion is that the gener- 
ated code was accurate. 

In comparing efficiency a common unit of measurement was 
needed fcr comparison. This common unit was chosen to be 
the TI-59 program step. The reason for this is simple. 
Both registers and program steps reside in the same memory. 
Registers occupy eight programming steps. To measure how 
much memory a pregram uses it was only necessary to multiply 



the 


number 


of storage 


regi sters 


times eight and add 


it to 


the 


number 


of p ro g r a m 


steps to 


arrive at a figure 


wh ich 


mea 


sured memory usage 


within the 


calculator. • 






This wa 


s don s w ith 


the EAX59 


generated code and the 


hand 



coded programs. The hand coded solution used 441 steps and 
60 registers for a total step count of 921. The EAX59 
generated cede used 652 steps and 86 registers for a total 
step count of 1340. This represented an increase over the 
hand ceded solution of 419 steps or a 45% increase. 

A time to solution comparison was made next since the 
primary purpose of the BAX59 system is to allow an indi- 
vidual tc quickly obtain a program capable of running on the 
TI-59 calculator. Tc begin with, the hand coded version was 
developed by three individuals over a period of several 
weeks. The BASIC program used as input for the B AX 5 9 system 
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took only cue person one day to write and debug, 
utility of a higher level language greatly simplified the 
programming process. It is this savings in programming 
development which makes the desirability of the BAX59 system 
readily apparent. 

In locking at the system-generated program some mere 
comments can be made about where the relative overhead 
occurs. Of the total 652 programming steps it was noted 

that 84 steps were due to prompting code. Six storage 
registers were used as manual return registers while one 
register was used as a temporary display storage register. 
Another register was used in the manual subroutine return 
prompting scheme. This totals for the Linker an overhead of 
148 programming steps. This Linker overhead represents 11$ 
of the total generated steps indicating that the compiler 
generated at least 34& more code than the hand optimized 
coded program. 

One last comment concerning the actual running of the 
EAX59 generated program needs to be made. In running the 
BAX59 code it was determined that time of execution became 
totally dependent on the amount of cards required to be 
read in and out. If the head reader in the calculator func- 
tioned properly, then this required small amounts of time to 
accomplish. If however, the head reader malfunctioned, then 
the reading of cards became an ordeal. In addition, the 
user had to pay close attention to the program prompting 
scheme or he would become lost between card reads. 
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VI. CONCLUSION 



In the following discussions, the oast program is evalu- 
ated together with the actual design. Based on this 
evaluation several conclusions are drawn and recommendations 
presents d . 

A. EVALUATION OP TEST RESULTS 

In examining the test data, it is important to realize 
that this is only a single test. As such, it does not 
represent the whole set of BASIC programs which may be 
executed by the BAX59 software system. However, the test 
does give an insight into the actual efficiencies which 
might be expected. While actual numerical data is given 
these data should not be viewed as a statistical analysis of 
the system. Rather, the data is meant to provide some frame 
of reference for the discussion of system efficiency. 

In examining the test program, it is noted that excess 
code generated amounts to roughly 45 5 !. Of this, approxi- 
mately 11?! can be attributed to the linker, while 345! can be 
attributed to the cross-compiler. Although the total over- 
head seems rather large, the reason for building the system 
must be recalled. The primary reason is to facilitate the 
rapid design and implementation of programs on the TI-59 
calculator. In view of this, it becomes clear that the 

overhead is secondary to the problem. Our real yardstick 
for success is whether or not TI-59 programs can be devel- 
oped more rapidly than hand coded programs. The test 
program provides an insight into this side of the problem. 
Development time was about one order of magnitude faster 
compared to the hand coded solution. 
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This rapid development time more than justifies the high 
overhead. This is true in most academic applications, as 
most program executions are limited in nature. If or. the 
other hand, a program is to be executed many times, then an 
optimized hand coded program might be better than the 
machine generated version. The final decision lies with the 
user. His program execution requirements, and the amount of 
time he has available to design and build his solution, will 
drive his selection. 

E. CCNCIOSICNS 

In view of the target machine limitations, it is prob- 
ably safe tc concluded that the system is a valid first-cut 
prototype. The prototype proved the desirability and feasi- 
bility of the concept, that quick, calculator programming can 
be realized with the minimum of effort. The following para- 
graphs discuss the prototypes's limitations and suggest 
reasons why the current system is not yet useful as a good 
production system. 

The calculator is severly limited in memory capacity. 
The TI-59 calculator has only 959 program steps for program 
usage. The overhead in code generation and segmentation 
prompts use up 45% of these steps. Together with the fact 
that only three memory partitions between program steps and 
storage registers are available, the 45% becomes a signifi- 
cant driving figure in calculator use. 

The memory problem restricts the varieties of programs 
which may be written for translation. Programs may net be 
written which require a main routine having a long back jump 
that covers a vast portion cf memory. This is because the 
linker segmentation rules will be violated underneath the 
covered iterative segment. The segmenter will fail tc 
segment. Thus, only programs which are sequential in nature 
are suitable for the system. 
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Another related proolem is that -he smaller the memory, 
the more segmentation breaks will occur in the code. The 
more segmentation breaks, the more card reads will be 
required to achieve a successful program execution. Often, 
a problem will arise with the card reader of the calculator. 
Like any piece of equipment with a motor and magnetic tape 
head, it is fairly sensitive and prone to failure. If the 
card reader fails just once in the execution sequence, then 
there is a high probability that the program will fail to 
terminate successfully. The minimization of magnetic card 
reads is desirable for this reason as well as for reduction 
of user thrashing. 

Another restriction occurs in the language subset. 
Arrays were not implemented in the first prototype design. 
This limitation impacts directly on the types of programs 
which can be developed for and translated by EAX59. 

Arrays are used primarily for iterative work. Without 

arrays, iterative wcrk, while still possible, is very 
limited. Much computer power lies in the ability to execute 
iteration rapidly. As noted in preceeaing paragraphs, this 
limitation occurs as a result of the small memory capacity 
of the machine. Because of this, it is felt that the imple- 
mentation of arrays should occur when the prototype is 
matched with a mere capable calculator. 

We have suggested major limitations of the system as it 
currently stands. For these reasons it is felt that the 
system should be viewed only as a first working prototype. 
However, we feel that this prototype successfully demon- 
strates the concept that the power and efficiency of 
calculator programming can be greatly extended through 
higher level language programming. 
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C. RECOMMENDATIONS 

If the concept of 3AX59 is useful, then the next logical 
step is to develop the second prototype. The second proto- 
type should not he hindered by the current TI-59's 

limitations. Otherwise, the next machine should be a mere 
practical one, allowing easy hand held calculator program- 
ming. Many firms now market machines which have built-in 
BASIC language interpreters. 

1 • Har Rel ated Sugges tion s 



In order to avoid the major restriction, namely 
memory, the BAX59 system must target a larger capacity 
calculator. This calculator should have about 10,000 
program steps and approximatly 400 to 500 storage registers. 
A memory partitioning capability should be available to 
maximize memory usage. 

As a follow cn to increased memory capacity, the 
next prototype should have a hardware device available which 
will enable the host computer to download the generated 
calculator program into the target machine. This would 
eliminate hand punching program steps, which would be be 
prohibitive on a calculator program of 10,000 or more steps. 

The linker algorithm examines the dynamic structure 
of the program to facilitate segmenting the program. This 
alogorithm segments sequential code that is not covered by a 
back loop. It may be possible to use this algorithm in the 
development of a single page swapping mechanism/system for a 
small microcomputer. The purpose of the algorithm in such a 
system would be to segment a program too large for the 
microcomputer, in such a manner so as to minimize the number 
of single page swaps with the system’s disk storage unit. 
Such a system might be desirable for a small microcomputer 
in which memory is a problem. 
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2 • Ar r ay I mplementati on 

A very useful extension of the language subset would 
be the inclusion of arrays. Coupled with memory expansion, 
the capability to process arrays would make it possible to 
do mere iterative programming. 

A simple but costly implementation of single dimen- 
sional arrays is, perhaps, the most feasible approach. For 
each array declared, three registers will be required to 
store indexing and access information. Call the W EA SIC 
record fields which will store the assigned register numbers 
EASE, HOID, and CALL. BASE stores the number cf the array 
base register (array index 0) . During assignment statement 
translation, HOLD stores the index for an array identifier 
cn the left hand side of the assignment statement equal 
sign. CALL stores the index of any array identifier 
currently being evaluated in simple expression. Of course, 
registers will be necessary for storage of the array itself. 
The simplest technique is to require that all array index 
ranges start at zero. Additionally, there will be no run- 
time checking of range limits. With the feregoing 
restrictions, estimated TI-59 program step requirements for 
translation of even simple assignments involving single 
dimensional arrays are very high. Evaluation of one array 
reference such as '• A (X) " translates to 13 program steps. 
The assignment statement " k (X) =h (Y) " translates to 26 steps. 
A more ccmplex reference such as "A(A(X))" requires about 24 
steps. Together with the number of registers needed to 
store values and access data, usage of calculator memory may 
rapidly approach capacity levels with array manipulation. 

Particular array values are accessed with the IND 
(indirect) instruction. Cur basic strategy is to add the 
evaluated array subscript to the register number in EASE, 
and stcre it in HOLD (for left side of assignment 
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statements) or CALL (for all others) . When a value is to be 
assigned to an array element, on the left of an assignment 
statement, then the right side is evaluated and "SCO IND" 
HOLD stores the value at the correct location. If it is 
only necessary to evaluate an array item within an expres- 
sion, then "RCL IND" CALL recalls the value of the 
appropriate item. Here efficient translation schemes might 
be possible; however, our technique has been tested on the 
TI-59 calculator, and works well. 

The most difficult aspect of implementation is the 
the task of installing the translation scheme and a parsing 
scheme. Fortunately, the BASIC language requires explicit 
array declarations using the DIH statement. Procedure PDIM 
must be written to parse these declarations, create symbol 
table entries, and make register assignments. The SLOT PCD 
record would need an additional variant tag type for array 
types, call it ARRIE. A slot with this tag would carry 
fields ESSE, HOLD, and CALL in its variant part . Finally, 
we would have to adjust the simple expression parsing and 
code generating procedures PEXPR and PPRIMARY so that they 
could recognize array references and act accordingly. Of 
course, there are other source code adjustments that would 
be necessary to fine tuns the system. However, this discus- 
sion has suggested cur outline of major steps involved in 
array implementation. 
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APPENDIX A 

if 5 A SI C SUBSET fiECOGNIZED BY BAX59 



Command Reserved Words: 



DATA 


EN DIF 


GOTO 


NEXT 


REM 


DEF 


ENDLOOE 


IF 


PAUSE 


RESTORE 


ELSE 


FNEND 


INPUT 


PRINT 


RETURN 


ELSEIF 


FOR 


LET 


QUIT 


STOP 


END 


GO SUB 


LOOP 


READ 


UNTIL 



WHILE 



OETICN (specia l--does nor fellow W3ASIC syntax) 



Supp lemental Reserved Words : 



NCT 


<> 


< 


+ 


STEP 


< = 


> 


- 


THEN 


> = 


= 


* 


TC 


* * 


t 


/ 



S 



[special — recognized by 
[special — recognized by 



scanner direcrly) 
scanner directly) 



Unim plemented Hesarved Words: 



CHAIN LINE 

CLOSE LOCK 

DIM MAT 

ENDGUESS ON 

GUESS OPEN 



OETICN (special- 



T RANDOMIZE 

3 EMOVE 
RENAME 
RESUME 
SCRATCH 

syntax of WBAS 



SLEEP 
SORT 
T AGSORT 
UNLOCK 
USE 

not implemented) 



AND OR 

# S 
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cf Command Reserved Wor ds : 

DATA: Create an internal data list (see READ, RESTORE) 

DATA Cinteg =r | r eal> {, Cinteger | real>} 

DBF: Define a single or multi-line function (see FN END) . 

sina^e line: DEF <fn name> [ (<parameter-list>) ] = <expr> 
multi-line : DEF <fn name> r (<parameter-l ist >) j 

...body of definition 
FN END 

ELSE: Indicate instructions to execute if no IF/SLSEIF 

conditions were satisfied (see IF, ELSEIF , ENDIF) . 

ELSE 

ELSEIF: Cause execution of a number of statements depending 
on the given condition (see IF, ELSE, ENDIF) I 

ELSEIF <boolean -expr> 

END: Mark the end-of -source in the program (last line) . 

END 

ENDIF: Indicate the end of an IF-ELSEIF-ELSE structure 
(see I? , ELSEIF, ELS E) . 

ENDIF 



ENDLCC? : Mark the end of a loop (see UNTIL, WHILE, LOOP) 
ENDLCCP 

FNEND: Mark the end of a function definition (see DEF). 
FNENC 

FOR: Mark the start cf a loop (see NEXT) . 

FOR <fcr-var> = <exor> TO <exor> (STEP <exor>] 
...statements to'execute ih loop 
NEXT <fcr-var> 

GOSUE: Transfer control to the line specified, until a 
RETURN is reached (see RETURN) 



GCSUE Cline #> 



(Note: GO S U 3 is not recognized) 



GOTO: Transfer control to the line specified (see ON). 

GOTO <line#> (Note: GO TO is not recognized) 
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IF: 



(1) Cause transfer of control to either of two 
statements or QUIT a loop depending on a condition. 

IF <koclean -exor> THEN <line#>|QUlT [_ ELS E Ciins #> | QUIT ] 
NOTE: This is an exception to WEASIC which 

allows any single statement after THEN 
and/or ELSE. 

(2) Cause execution of either of a group of 
statements depending on a condition 
(see ELSE, E1SEIF, END IF) . 

IF Ctoclean -exor> 

...statements to execute if expression TRUE 
[ ELSEIF <boolean-expr> 

...statements to execute if 2nd expression TRUE] 
[ELSE 

...statements to execute ir none are TRUE] 

ENDIr 



INPUT: Transmit data from the terminal to a number of 

variables (see PRINT). Mo variables stops axecuticn. 

INPUT [ <axpr> (, <expr >} ] 



LET: Assign the value cf an expression to a variable. 
[LET] <var> = <expr> 



LOOP: Nark the beginning of a loop 
(see WHILE, ENCIOOP, UNTIL). 

LOOP 

. . . statements to execute rn loop 
ENDLCOP 



NEXT: Nark the end of a FOR loop (see FOR) . 

FOR <for-var> = ... 

...statements to execute m loco 
NEXT <f or- var > 



PAUSE: Suspend execution of the program. 
PAUSE 



PRINT: Transfer a series of values to printer or display. 

If nc expression is found, a line space will result, 
(see OPTION) 

PRINT [<exor> (, <e xpr >} ] 



QUIT: Leave the current block (WHILE, UNTIL, LOOP). 
QUIT- 



READ: Transfer data from the list of items specified in DATA 
statements (see DATA, RESTORE). 

READ <variable> {, <variable>} 



REM: Indicate that the line is a comment. The exclamation 
character (!) may also be used to indicate a ccmment. 

REM [<ccmment>] 



SESTCRE: Cause the next READ statement to get data values 
starting at the first item in the DATA list 
(see READ, DATA). 

RESTORE 



RETURN: Transfer ccntrcl to the statement following the las 
GCSUB executed (see GOSUB) . 

RETURN 

STOP: Terminate program execution. 

STOP 



UNTIL: tMark the end of a loop to be executed until 
condition is true (see WHILE, LOOP, ENDLOCP) 



e give 



LOOP 

...statements to execute m loop 
UNTIL <tool ean- expr > 



WHILE: Mark the beginning of a loop 
qiven condition is no longer 
'(see LOOP, ENELOOP, UNTIL). 

WHILE <hool ear.- expr > 

...statements to execute in 
ENDLCCP 



to be executed 
true 



loop 



until th 



OPTION: Set/reset boolean toggles within BAX59 to control 
oeneraticn of output riles. 

CAUTION: This is' n ot the WBASIC OPTION! 

This OPTION should be used only after 
a correct WEASIC program has been 
constructed and is ready for translation. 



OPTION <opt-parm> {<cpt-parm>} 



0 

1 

2 

3 

4 

5 

6 

7 

8 



where <cpt-parm> (option parameter) is 
an integer range -31. +8; 
sign indicates the direction of toggle: 
positive = true/on, negative = f alse/cf f ; 
sian is assumed positive if omitted. 



generate linker interface 
generate cede for PC-100 p 
optimize cut unnecessary 
cptimize cut unnecessary 
translated TI-59 code to 
contents of symbol table 
contents of code structure to list file... false 

each lexical token to terminal false 

each lexical token to list file false 



f ' 1 a 


Def au It 
. .false 


rin- sr 




arentheses. . . . 


. . t r ue 


OP'S 




ist frle 


. .true 


o list file. . . 


. . f a lse 
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Desc ri ption of S up ol ejenta l Rese r ved Word s : 

NOT: Negate a coclean expression (see IF, WHILE, UNTIL) . 

NOT <bcclean-expr> 

STEP: Dssianate the increment (decrement) value of a FOR 

variable (see FOR). (default = +1) 

FOR <for-var> = <expr> TO <expr> STEP <expr> 

THEN: Mark the beginning of the true branch of a line- 

criented IF statement (see IF) . 

IF <toolean-expr> THEN <line*>|QUlT [ELSE <Iine#> | QUIT ] 

TO: Mark the exDression which represents the limitina 

value of a tor-variable (see FOR) 

FOR <for-var> = <expr> TO <expr> [STEP <expr>] 



Sym bols an d Ope rator s : 



<> net equal 

<= less than or equal 

>= greater than or equal 

** raise to the power 

< less than 

> areater than 

= equal 

! end of line cut 



+ addition 

subtraction 
* multiplication 
/ division 
( open expression 
) close expression 
, list item separator 
. decimal point 



Sp ec ial Characters: 

~Jnc t reserved words--recognized directlv within 
the scanner without reference to the RvJ table) 

& Signifies that the current line is continued on the 
next line or is a continuation of the last line. 

C0 120 r.EM This comment is to long for one line, so it & 
C0130 6 must be continued on the next line. 



Underscore; used within variable identifier names to 
assist in readability; also used to dssianate a user 
defined function identifier. 

LET FINAL SUM VALUE = FIRST VALUE + SECOND VALUE 
CEF FN FACTORIAL... 
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Euilt-in Functions: 



AES ATN CSC IP PI SIN 

ACCS COS EXF LOG RND SQR 

ASIN COT FP LOG 1 0 SEC TAN 



ABS: 

ACOS: 

ASIN: 

ATN: 

COT: 

CSC: 

EXP: 

FP: 

IP: 
LOG: 
LOG 1 0 : 
FI: 



END : 
SEC: 
SIN: 
SQR : 
TAN: 



Returns 
AES (X) 

Returns 
ACCS (x) 

Returns 
ASIN (x) 

Returns 
ATN (x) 

R s t u r ns 
CCT (x) 

Returns 
CSC (x) 

Returns 
EXP (x) 

Returns 
FP (x) 

Returns 
IF (x) 

Returns 
LCG (x) 

Returns 
LCG 10 (X) 



Returns 




Returns 
ESC (X) 

Returns 
SEC (X) 



the absolute value (magnitude) of parameter 

the arccosine (in radians) cf parameter 

the arcsine (in radians) of parameter 

the arctangent (in radians) of parameter 

the cotangent of parameter angle in radians 

the cosecant of parameter angle in radians 

the value of a raised to the power x 

the fractional part and sign of parameter 

the integer part and sign of real parameter 

the natural logarithm (base e) of parameter 

the logarithm (base 10) of parameter 

the value of the constant oi 

141593 WBASIC ==> pi = 3.14159265359 11-59) 

a ps e tdo-ran dcm number in the range (0,1) 

the secant of parameter angle in radians 



Returns the sir.e of oarameter anqle in radians 
SIN (x) 



Returns the square root of Darameter 
SQR(x) 

Returns the tangent cf parameter angle in radians 
TAN (X) 
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APPENDIX B 

CONDENSED BAX59 USER'S GDIDE 



This guide is intended to be a useful compendium of 
important points the user should consider when preparing, 
cross-compiling, and linking a WBASIC source program with 
the B AX 5 9 system. Included are suggested programming tech- 
niques which will optimize and improve resulting Tl-59 code. 
Some of the information contained in the design document is 
repeated hers for the sake of consistency. There are a few 
previously unmentioned items, many of which are essential to 
successful use of the system. 

1. Whether you are translating a prewritten WBASIC program 
or one which you are writing yourself, review it for 
constructs and functions which are not implemented in 
EAX5S. Use Appendix A as a quick reference for this 
purpose. Finding and eliminating unimplemented func- 
tions is mere important than constructs. BAX59 will 
detect and 'report construct subset errors, however, 
uni nplemented functions are assumed to be variable 

v 

identifiers and will be entered in the symbol table as 
such. An error may or may net be reported as a result 
of faulty syntax; this depends upon the context of the 
unimplemented function. 

2. Every line of the source program must have a line 
number, including blank lines. Every line number must 
be in chronological order between 00000 and 99999 
exclusive . 

3. The end of the source file does not require the END 
statement; however, whenever an END statement is 
encountered, the end of the source program is assumed 
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and translation hairs. The END statement will net 
generate a TI-59 program srop. If you desire that a 
TI-59 program halt gracefully, you must use the STOP 
statement (s) in the W3ASIC source code. 

4. There is no overhead involved in using blank lines or 
comments. Although a NOP is generated for each, it is 
subsequently optimized out during resolution. This 
also allows unconditional jumps to such constructs 
without cause fer concern. However, such practice is 
not recommended and will hamper debugging. 

5. You are strongly urged to practice structured program- 
ming. While an unstructured program will be 

translated, its physical correspondence to the original 
WEASIC source cede is likely to be less recognizable. 
Also, such a translation will very probably confuse the 
linker. Ensure that your subroutines have only one 
entry point and one RETURN, otherwise you will defi- 
nitely confuse the linker! In order to improve the 
physical correspondence between source and translation, 
you are encouraged to use blank lines and comments. 
This will usually assist in debugging, if required. 

6. The structured order of WEASIC program parts should be 
as fellows: 

A. OPTION statement (for 3AX59 only) 

3. DATA/READ statements 

C. Main Body (including a at least cne STOP) 

D. Function DEF's and Subroutines 

2. END statement 

Note: The linker expects to find the label repre- 

senting the main body (13L A) as the first two TI-59 
keycodes. 

7. There is only one type of numeric data: real. 

Integers and reals are both considered reals in the 
TI-59 run-time environment. Numeric entries without 
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exponent will always be truncated to ten significant 
digits. If the entry contains an exponent or if the 
entry must fce converted to exponent notation in order 





to mairta 


in 


eg 


uival 


en 


ce, then 


only ei 


ght 


sigr.i 


f ic 


ant 




digits wi 


11 


be 


saved 


( 


plus two : 


in the ex 


pone 


nt) . 


Th 


ese 




rules can 


have 


a profo 


una effect upon p 


reci 


sion 


e rr 


ors 




in numeri 


ca 


1 CO 


m put a 




ons. 












8 . 


Avoid pro 


li 


fe ra 


ticn 


of 


variable 


names. 


Var 


iabl? 


na 


ines 




use regis 


re 


rs. 


your 


31 


ost preci< 


o u 3 rescu 


reel 


Wh 


ene 


ver 




possible 


re 


use 


variab 


la names to preven 


t n 


ew re 


gis 


ter 




assignraen 


ts 


* 


















9. 


Do net 


f 0 


rget 


to 


r 


eserva r< 


egisters 


for 


you 




own 




reguir erne 


nt 


c 

•— m 


The 




"long" fu; 


action f 


acil 


ity 


alw 


ays 




requires 


on 


e i 


n the 




ange 10 - ‘ 


39. The 


li 


nker 


always 




requires 


tv 


o in 


the 


ra 


nge 00-09 


. An add 


i t ic 


nal t 


VC 


per 




segment i 


n 


the 


rang 


3 


10-99 wi: 


LI be taken 


dynam 


ica 


ii y 




by the link 


er a 


fter 


th 


e cross-ci 


ampiler h 


as m 


ade a 


11 


its 




assignmen 


t s 


• 


The 


i 


nterf ace 


informat 


ion 


is 


pas 


sed 




through 


tk 


e SC 


HATCH 




file. 1 


Never re 


serv 


e the 


l 


ast 




available 


r 


e g i s 


ter. 




otherwise 


a memory 


cv 


erf lo 


V w 


ill 




never be 


re 


port 


sd in 


a 


warning message. 










10 . 


Optimize 


ex 


pres 


sions 


u 


sing the 


standard 


rul 


es of 


CP 


er- 




atcr pre 


ce 


dene 


e . 


Fa 


iiurs to 


do so 


may 


result 


in 




unnecessa 


ry 


gen 


erati 


on 


of paren- 


a heses . 










11 . 


Avoid use 


0 


f th 


S STEP 


option in 


FOR loop 


s. 


Rely 


on 


the 




default i 


nc 


rem e 


nt ( + 


1) 


whenever 


possible 


. 








12 . 


If a use 


r- 


de f i 


ned f 


un 


ction is 


to be a 


ppli 


ed f 


or 


its 




side effe 


ct 


s on 


iy» * 


he 


n use one 


variable 


na m 


e to 


inv 


eke 




all such 


fu 


ncti 


on ca 


11 


s. For e; 


xampl = : 












00120 


INVO 


KE = 


FN 


_ ALPHA 














0013 


0 


IN VO 


KE = 


FN 


_BETA (X, Y) 












0014 


0 


IN VO 


KE = 


FN 


_GA MM A 
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absolutely necessary. Parameter passing uses a great 
deal cf program steps. Furthermore, since actual 
parameters may be simple expressions, nesting cf paren- 
theses can become arbitrarily deep very quickly in a 
function call. The TI-59 places a limit of nine on the 
depth cf parentheses nests. 

14. Remember that the TI-59 allows subroutine (SBR) nesting 
to a maximum of six levels. This restricts the depth 
cf recursion. However, if the recursive call always 
returns to the same address. The recursion will prob- 
ably work. This is because the subroutine return stack 
will always maintain the correct return address, even 
if it overflows. 

15. EAX59 dis tznguishes between upper and lower case char- 
acters in variable identifiers. Exceptions are the "E" 
in an exponent, the "FN_" preface of a function, and 
reserved words. Built-in functions must be written as 
they appear in the BIFNQF or BIFNLF files (currently, 
all upper case) . 

16. W3ASIC trignometric functions compute in radians. By 

default, TI-59 trignometric functions compute in 
degrees. If trignometric functions are translated, 

then prior to execution the TI-59 must be reset tc the 
radian mode by entering "2ND RAD." 

17. If ycu plan to modify TI-59 code that has been gener- 
ated by BAX59, remember that only subroutines have 
relative addresses. All ether addresses are absolute 
justified. Cede insertions or deletions dc not 
rejustify absolute addresses! Unless you are familiar 
enough with the calculator to know what you are doing, 
you will create more problems than you fix. 

18. The special construct, PAUSE, is provided for 

assistance in debugging. This is somewhat like a 

message to the compiler. It translates to the TI-59 
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keyccdes 82 and 31, which are a void key and aha "LRN" 
key. Thesa ksycodes cannot ba entered directly into 
the calculator. Instead, enter "STO 31” followed by 
the editing sequence "BST BST NO? SST." The original 
"STC 31" will have been changed to "NOP 31." When 
encountered during run-time, these keys will interrupt 
execution and cause the calculator to enter its Learn 
Mode. Other than stopping execution, no other harmful 
effects result. To resume processing, simply hit "LRN" 
to show the contents of the current display register, 
and "R/S" to continue execution. This facility 
provides a convenient method of process suspension 
which corresponds physically and logically to the 
WEASIC source cede. 

19. The BAX59 OPTION statement may provide other useful 
facilities for debugging. However, most of these were 
designed for debugging during installation of 
enhancements tc the BAX59 Cross-Compiler Beware of 
OPTION parameters 6, 7, and 8. These tend to produce a 
great deal cf output! 

20. The EAX59 system will not execute properly unless all 

associated data files are available tc the host 
operating system on which BAX 5 9 will run. You may 
modify the information contained in them, however, you 
should not change the formats. (These files are 

Appendices D, E, F, G, K, and J.) 

21. Co net design excessively long iterative loops or back 
jumps, the linker cannot handle them. If iteration is 
required, design loops which translate to back jumps 
that are well within the TI-59 memory constaints. 

22. The key to successful use of the linker is to break 
very large programs into smaller parts which can be 
processed sequentially without much repetition. 
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APPENDIX C 

CROSS-COMPILEB SOURCE CODE 



(** 

* 

I** 

i: 

* 

* 

* 

* 

i* 

* 

* 

* 

* 

* 

* 

* 

4c 

4c 

4c 

* 

* 

* 

(* 

(4c 4c 



BAX59 CROSS-COMPILER 

IMPLEMENTS A RECURSIVE DESCENT PARSER AND GENERATES 
A LINKED RECORD DATA STRUCTURE OF TI-59 CODE 
TRANSLATED FROM WEASIC LANGUAGE SOURCE CODE. 

THE DATA STRUCTURE IS USED TO RESOLVE RELATIVE TI-59 
ADDRESSES. A LISTING OF THE ORIGINAL WBASIC PROGRAM 
INCLUDING DETECTED ERRORS IS GENERATED DURING 
TRANSLATION. VARIOUS FORMS OF OUTPUT BESIDES THE 
LISTING FILE CAN EE TOGGLED CN/OFF FROM WITHIN THE 
INPUT FILE USING THE "OPTION" STATEMENT. THIS VERSION 
OF THE PROGRAM IS DESIGNED TO SUPPLEMENT A WATERLOO 
BASIC (WEASIC) LANGUAGE INTERPRETER CR COMPILER. AS 
SUCH, IT DOES NOT DETECT ALL WEASIC SYNTAX OR SEMANTIC 
ERRORS. WBASIC PROGRAMS SHOULD 3E SUCCESSFULLY RUN 
IN THE WEASIC SYSTEM ENVIRONMENT PRIOR TO TRANSLATION 
WITH THIS CROSS-COMPILER. THE 3AX59 SYSTEM INCLUDES 
AN INDEPENDENT LINKER (T SDRIVER) WHICH WILL PROPERLY 
SEGMENT AND ISSUE INSTRUCTIONS FOR MANUALLY LINKING 
AND EXECUTING A TI-59 PROGRAM GENERATED BY THE CROSS- 



COMPILER EUT WHI 
MEMORY CAPACITY. 



LARGE FOR THE CALCULATOR 



PROGRAM EAX59 



(INFGT, 

RWTELF, 

OUTEILE, 



OUTPUT, 
LABELF, 
LISTF , 



BASICF, 
CTEXT7, 
NAM3F , 



MS GF , 
BIFNQF, 
R3ADF , 



EIFNLE, 

SCRATCH) 



! ***4>**4t*:*4e4*4t*4c4^4t4t4^**4t4<*4‘4^4>4t*4t4c4c4t*4<4>4'*4c4‘*4-*4c**4>*4t*4:4‘4<4t4t 
4c ’ 4: 

* SYSTEM PARAMETERS * 

4= 4c 

(4c4c4c4c4c4c44c*4<A 4c4c 4c4c4c4c4e4c*$4c4c4'4c4c4c4'4c4>4c4c4c4c4c4c4c4c4:4c4c4c4c4c4c4c4c:*4'4>4c44c4':*4c 4c4c 



! 4 c 4c 

4c 4= 

* CONST DECLARATIONS (MAIN) * 

4c 4c 

(4c 4c 



CONST RWCHARCT = 270 

EWWCRECT = 72 

RWLENGCT = 9 

MAXTOKLEN = 20 

MAXLINLEN = 66 

MAXEASLIN = 99999 

HASHEASE = 99 

STARTREG = 00 

REGEASE = 90 

LBIEASE = 72 

FNQLEN = 4 

F NILE N = 15 

FNLEEG = 10 

FNSTACKLIH* 6 
TEXTLEN = 20 



* TOTAL # OF CHARS IN RW ARRAY * 

* TOTAL * OF WORDS IN RW ARRAY * 

* * OF CHARS IN LONGEST RW * 

* MAX ACCOM LENGTH => MAX TOKEN * 

* MAX LENGTH OF BASIC TEXT LINS * 

* MAX BASIC PROGRAM LINE NUMBER * 

* INDEX OF LAST BUCKET (0-99) * 

* 1ST REGISTER (LOWEST NUMEER) * 

* MAX # AVAILABLE REGISTERS * 

* MAX # OF AVAILABLE LABELS * 

* MAX # STEPS IN QUICK FUNCTION * 

* MAX # STEPS IN LONG FUNCTION * 

* REG USED FOR PARM OF LONG FNS * 

* MAX SBR/FN NESTING LEVEL * 

* MAX # CHARS IN A CODE TEXT LN * 



1 10 



* * * -fc # # 



GLOBAL DECLARATIONS 
***** ******** ***** ******* ******************************* 



TI-5S 


KEY 


CODES: 






OTHER SYMBOLS 


K ZERO 





0 


K EE 





52 


BLANK = ' 


K“1 


=: 


1 


K”OP AREN 


= 


53 


ENDLIN = 'S’; 


K“2 


= 


2 


K“CP AREN 


= 


54 


ENDFIL = • %' ; 


K'3 


= 


3 


K“DI VOP 




55 


PERIOD = • . • ; 


K“4 


=s 


4 


K“ENG 




57 


COMMA = 


K“5 


= 


5 


K“FIX 


= 


53 


USCORE = • • ; 


K“6 


= 


6 


K — IN T 


= 


59 


EXCLAM = «T'; 


K"7 


= 


7 


K“DEG 


= 


60 


QUOTE = ' ' ' ' 


K — 8 


= 


8 


K~ GT 0 


— 


61 




K“9 


= 


9 


K“PG MIND 




62 




K“E?R 


= 


1 0 


K — EX CIN D 


=s 


63 




K“A 


= 


1 1 


K“PRDIND 


ZS 


5 4 




K“ E 


s 


12 


K~MU LTO? 


= 


D 5 




K~C 


= 


1 3 


K“ P A USE 


= 


55 




K“D 


= 


1 4 


K“IFXEQT 




67 




K”E 


= 


1 5 


K“NO E 


— 


58 




K“ APR 


= 


1 6 


K — OP 


= 


69 




K“EPR 


= 


1 7 


K“RAD 


= 


70 




K“CFR 


= 


1 8 


K“SBR 


= 


71 




K - DFR 


= 


19 


K“STCIND 


= 


72 




K” 2CL E 


— 


2 0 


K — R C LIN D 


= 


73 




K — I N V 


= 


22 


K“SU MIND 


= 


74 




K”LNX 


= 


23 


K“SU BOP 


= 


75 




K~CE 


= 


24 


K“LBL 




76 




K“CLR 




25 


K — IF XGET 


= 


77 




K“2INV 


= 


27 


K“SI GMA 




78 




K — LOG 


= 


28 


K”X3 AR 




79 




K — CP 


=: 


29 


K”GRAD 


= 


30 




K“T AN 




30 


K“RST 


= 


31 




K“X T 


= 


32 


K~ GT OIND 


= 


83 




K — X"SQR 


= 


33 


K — OP IND 




84 




K”SETX 


= 


34 


K“AD DOP 




85 




K — XIN V 


= 


35 


K“ST FLG 


= 


86 




K“FGM 




36 


K”"IF FLG 


= 


37 




K“F R 


= 


37 


K — DM S 




88 




K“SlN 


= 


33 


K“?I 


= 


39 




K — CCS 




39 


K“LI ST 




90 




K“IND 


= 


40 


K“RS • 


= 


9 1 




K~ STG 


— 


42 


K~ IN VSBR 




92 




K“RCL 


= 


4 3 


K“DE CPT 


=r 


93 




K — SUN 


= 


4 4 


K“N E G 


= 


94 




K“ PCWR 


= 


45 


K“EQ UALS 


= 


95 




K — CMS 


= 


47 


REWRITE 


— 


96 




K“EXC 


= 


43 


K”DS Z 


= 


97 




K'FED 


= 


49 


K”AD V 


= 


98 




K — AES X 




50 


K“?RT 


= 


99 





1 1 1 



^ # if * * 



0FTSN outs id so f”ma£n~ driver 7~” 



ERECRTOK = 0 

CHICK EXC = 1 

EQOALTOK = 2 

FLUSTCK = 3 

MINCSTOK = 4 

MUITCK = 5 

DIVICK = 6 

OPARENTOK = 7 

CF AEENTOK = 8 

GTTCK = 9 

LUCK - 10 

COHMAIOK = 1 1 
EXFTOK = 15 
NOIEQTOK = 16 
GTSQTCK = 17 
LIEQTCK = 18 



IDENTOK = 
NUMBERTOK = 
END LINT OK = 
ENDFILTOK = 



RWWORDCT + 1 
RWWORDCT + 2 
RWWORDCT + 3 
RWWORDCT + 4 



TOTOK 

OSTOK = 

CMTOKBEH = 

NOTTOK = 

ANDTOK = 

THENTOK = 

ELSETOK 
QUITTOK = 

5TEPT0K = 

ENDLOOPTOK= 



20 

21 

24 

28 

30 

33 

34 
38 
42 
67 
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* # -« 



TYPE DECLARATIONS (MAIN) 



$ 

* 

* 

TYPE BASLINRNG 
TCKENRNG 
HASHRNG 
ACCRNG 
LBLRNG 
REGRNG 
KEYRNG 
CTEXTRNG 

LNSTEING 

TKSTRING 

LEVEL 1 
LEVEL2 
LEVEL3 

L3LSTACK 



0 . . MAX BAS LIN ; (* SUBRANGES *) 

0. . EWWORD CT + 4 ; 

0. .HASH3ASE; 

0. . MAXTOR LEN ; 

0 . .LBL3AS E + 1 ; 

0 . . S9 ; 

0. .99: 

- 2 . . 9 § ; 

PACKED ARRAY ( . 0. . M AXLINLEN + 1.) CF CHAR; 

PACKED ARRAY ( . 1. . M AXTOKLEN .) OF CHAR; 

ARRAY (. 1 . . RWCHARCT + 1.) OF CHAR: 

ARRAY (. 1 . .RWWORDCT + 1. OF INTEGER; 

ARRAY (. 1 . . R WLENGCT + 1.) OF INTEGER; 

ARRAY (.LBLRNG.) OF INTEGER; 



_ _ \ 

* DATA STRUCTURE USED FOR WBASIC READ/DATA STATEMENTS; *) 

'* ONE DATA ENTRY CONSISTS OF AN OPTIONAL SIGN (DEFAULT *) 

* IS POSITIVE) AND AN INTEGER OR REAL NUMEEE. *) 

* --*) 



DATAITEM = RECCED 

NUMB : TKSTRING; 

SIGN : CHAR 

END; (* DATAITEM *) 

DATASTORS = ARRAY (. 1 . . REGBASE . ) OF DATAxTSM; 



I 1 * DATA STRUCTURE WHICH HOLDS THE TEXT TRANSLATION OF *1 

* ALL TI-59 KEY CODES READ FROM THE CIEXTF FILE; *) 

* UNIT FIELD INDICATES INSTRUCTION TYPE: *) 

* 0 = SINGLE STEP INS TP (INDEPENDENT) *) 

* 1 = 2-STEP INSTR (FOLLOWED BY REG NUMBER) * 

* 2 = 3-STEP INSTR (FOLLOWED BY ABSOLUTE ADDR) *) 

(* 3 = 4-STEP INSTR (FOLLOWED 3Y REG OR FLAG NUMBER *) 

<* AND AN ABSOLUTE ADDR) *) 

(*- *) 



CODETEXT = RECCED 

IT N TT *0 A • 

CCDECKAR : PACKED ARRAY 

( . 1. . TEXTLEN.) OF CHAR 
END; i* CODETEXT *) 

CTEXTSTORE = ARRAY (.CTEXTRNG.) OF CODETEXT; 



■ft -ft -ft -ft 



\ * CODERCD IS A SINGLE NODE IN THE TI-59 CODE DATA 
(* STRUCTURE; LINERCD IS A SINGLE NODE IN THE CHAIN 0? 

(* WEASIC LINE NUMBERS TO WHICH THE TI-59 CODE STRUCTURE 
<* IS ATTACHED; THIS PART OF THE CODE DATA STRUCTURE IS 
(* USED TC LOCATE PORTIONS CF TI-59 CODE WHICH DIRECTLY 
(* CORRESPOND TO W3ASIC LINE NUMBERS. 

( * 



COCEFTR 

CGEERCD 



LINEPTR 

LINERCD 



2C0DERCD 
RECORD 
AD DR 
KEY 
JMPP 
SEQP 
BAKP 
END ; 



2LINEFCD 
RECORD 
LINO ; 
LPTR : 
CPTP ; 
END; 



INTEGER; 

INTEGER; 

CODEPTR; 

CODEPTR; 

CODEPTR 



3ASLINRNG; 
LINEPTR ; 
CODEPTR 



(* CODERCD 



(* LINERCD 



— — — — — — — - — 

* S LCTRCDS ARE SYMBOL TABLE SLOTS; SLOTS ARE ATTACHED TO 

* HASH; HASH IS THE SYMBOL TABLE REPRESENTED AS A STATIC 

* ARRAY CF SLOT POINTERS; EACH SLOT POINTER IN HASH 

(* REPRESENTS A SINGLE HASH BUCKET; EACH BUCKET MAY HAVE 
(* ANY NUMBER OF SLOTS ATTACHED AT THE HEAD POINTER CF 
(* EACH EUCKET (LIMITED ONLY BY MACHINE CAPACITY). 

(* SLOTS MAY BE OF 4 DIFFERENT TYPES; VARIABLE IDS, 

(* LONG FUNCTION IDS, QUICK FUNCTION IDS, AND PARAMETER 
j* (OR PARAMETERLESS) FUNCTION IDS. 



IDTYP 
SLCTPTR = 
HASH 
QKEYSEQ 
LKEYSEQ 
SLCTRCD 



= (V ARID, 

= aSLOTRCD 
ARRAY 
ARRAY 
ARRAY 
RECORD 
IDENT 
SLOT 
CASE T 
V ARI 



FNQI 

FNLI 



FNQID, FNLID , FNPID); 

HAS HRNG. ) OF SLOTPTR; 

1.. FNQLEN.) OF KEY RNG ; 

1. . FNLLEN. ) OF KEYRNG ; 



YP 

D 



T KSTRING; 
SLOTPTR; 



FNPID 



END 



IDTYP 
(REGNO 
AUXREG1 
AUXREG2 
(FNQ 
(FNL 
FNLLINK 
(FNREGNO 
FNP 
LEL 

FNP LINK 



OF 



INTEGER; 

INTEGER; 

INTEGER) 

QKEYSEQ) 

LKEYSEQ; 

SLOTPTR) 

INTEGER; 

SLOTPTR; 

LBLRNG: 

SLOTPTR) 



(* SLOTRCD *) 
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* # # # * 



OPTION TOGGLES ARE EOOLEANS WHICH CAN BE SWITCHED FROM 
WITHIN THE WBASIC SOURCE PROGRAM USING THE "OPTION" 
STATEMENT; EXCEPT FOR ZERO (LINKER INTERFACE TOGGLE) , 
THE RULE IS THAT A •+• SETS/RESETS TOGGLE TRUE, WHILE 
A SETS/RESETS TOGGLE FALSE; DEFAULT VALUES ARE 

INDICATED IN THE COMMENT FOLLOWING EACH DECLARATION. 



R LINK59 


BOOLEAN; 1 


f* OPTION 0 = FALSE 


PC100 


BOOLEAN; I 


* OPTION 1 = TRUE 


OPTPAR 


BOOLEAN; l 


* OPTION 2 = TRUE 


CPTNOF 


BOOLEAN; < 


* OPTION 3 = TRUE 


CODUMP 


BOOLEAN; I 


* OPTION 4 = TRUE 


SYDUMF 


BOOLEAN; I 


* OPTION 5 = FALSE 


DSDUMP 


BOOLEAN; | 


* OPTION 6 = FALSE 


TOKCUT 


BOOLEAN; l 


[* OPTION 7 = FALSE 


TOKLIS 


ECOLEAN; | 


* OPTION 8 = FALSE 


: SETS USED IN VARIOUS TESTS FOR CHARS, TOKEN NUMEERS, 
T 1-59 KEY CODES, AND REGISTERS. 



(* 



LETTERS, DIGITS. ALFA NUM 
DOUBLE 1, DOUBLE2 


SET 


OF 


CHAR; 


SET 


OF 


CHAR; 


SPECIALS, SIGNS 


SET 


OF 


CHAR; 


SUBERROR, CRITICAL 


SET 


0? 


CHAR; 


BINCPTCKS, RSLOPTOKS 


SET 


OF 


TOKENRNG; 


TRAILTOKS , SIGNTOKS 


SET 


0? 


TOKENRNG; 


BEGIN EX PR TO KS 


SET 


OF 


TOKENRNG; 


NUMERICKEY 


SET 


OF 


KEYRNG; 


RESERVE REG 


SET 


OF 


REGRNG; 


; RESERVED WORD TABLE CHARACTER AND 


INDEX ARRAYS. 



RWCHAR : LEVEL 1; 

FWWCRD : LEVEL2; 

RWLENG : LEVEL 3 ; 



* SCANNER ASSOCIATED GLOBAL VARIABLES. 

* 



ACCUM 

ACCINX 

LINEUF 

LNBINX 

LINUM, LLINUM, 
TOKNUM, LTCKNUM 
LCCUNT, RCOUNT, 
FLAGCKT 



CLINU M 
ECOUNT 



TKSTRING ; 

ACCRNG ; 

LUSTRING: 

0. . MAXLINLEN + 1 ; 

BASLINRNG; 

TOKENRNG; 

INTEGER; 

300LEAN; 
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* * * * * 



<*- 



PARSE ASSOCIATED GLOBAL VARIABLES, 



ERRCRCT, 

NEXTREG 

LELCT 



W ARNCT 



INTEGER; 
INT EGER; 
LBLRNG; 



RSSERVECT ; 


REG RNG ; 


CTEXT : 
D ATALIST : 
EATAIX. READIX : 
INDZXERROR : 
FIRSTREAD : 


CTEXTSTORE; 
DAT ASTORE; 
1. . RSGEASE; 
BOOLEAN; 
EOOLEAN; 


CLAEEL 


: LBLSTACK 


BUCKET 
IDSLOT 
IE- LPCUH 
LPLEAD, LPTRAII 
CE. CECJR 
FIHSTLP, LASTLE 
EEGINCP, ENDCP 


: HASH: 

; SLOTPTR; 
; LINEPTR; 
: LINEPTR ; 
; CODEPTR; 
: LINEPTR; 
: CODEPTR; 


FNSTACK, FNLLIST 
FNSTACKCT 


: SLOTPTR; 
: INTEGER; 


IFSTACK, ENDIFSTACK : CODEPTR ; 
LOCFSTACK, ENDLCOPST ACK : CODEPTR; 
FCRSTACK, NEXTSTACK ; CODEPTR; 



II 



MARKERS 

MARKERS 



FILES 



RKTELF, 


L ABELF , CTEXT F 


: TEXT; | 


r* 


INITIAL FILES 


EIFNQF, 


BIFNLF 


: TEXT; ( 




BUILT-IN FNS 


EASICF, 


MSGF 


: TEXT; | 


* * 


INPUT FILES 


LISTF, 

OU1FILE 


NAMEF, READF 


; TEXT; | 


f * 


OUTPUT FILES 




; TEXT; j 


? * 


TERMINAL FILE 


SCRATCH 




: TEXT; i 


[* 


LINKER INTERFACE 
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**■■#*•#•*##* * * tt X K 



! j$c 4c \ 

* PRIMITIVE CHAR ROUTINES *) 

* * ) 

a^************ ************ 4«4= 3>c3jc^c sjc^e^c ^c^c^c^^c ^3je3(c^c^e^^: ajcajc^ 



(*- 0 1 

(* UPCASE CCNVERTS ANY LOWER CASE EBCDIC (OR ASCII) CHAR 
* TC UPPER CASE EQUIVALENT. 

(* 

FUNCTION UPCASE (VAR CH : CHAR) : CHAR; 



BEGIN 

IF CH IN (.' a* .. • i' .) THEN 

UPCASE : = CHR(ORD (CH) - ORDf'a 1 ) + 
ELSE IF CH IN (. * j ' . . • c' . ) THEN 

UPCASE := CH R (0 5 E (CH ) - ORD('j') + 

ELSE IF CH IN (.•s'.-'z*.) THEN 

UPCASE := CHafOEC (CH ) - ORD ('s') + 



In 



ELSE 

UPCASE := CH 

END; 



ORD (' A') ) 
ORD { • J • ) ) 
ORD ('S') ) 



-* ' 

*5 

* 

-*< 



(* UPPERCASE *) 

(********************************************** ************) 



(*-0 2 *) 

j* TRANSEIGIT RETURNS THE INTEGER VALUE FOR NUMERIC CHARS *) 

FUNCTION TRANSDIGIT (CH : CHAR) : INTEGER; 

EEGIN 

TRANSDIGIT := ORD (CH) - CRD ('O’) 

END; (* TRANSDIGIT *) 

(**********************************************************) 
j* XNUMBER RETURNS INTEGER VALUE OF A NUMERIC CHAR STRING *j 

FUNCTION XNUMBER (ACCOM; TKS THING; ACCINX : ACCR NG) : INTEGER; 
VAR I, TEMFNR : INTEGER; 

BEGIN 

TEMPNR := 0; 

FOB I := 1 TO ACCINX DO 

TEMPNR ;= TEMPNR * 10 ♦ TRANSDIGIT ( ACCUM (. I . ) ) ; 

XNUMBER := TEMPNR 

END; (* XNUMBER *) 

(*************************************************** *******) 
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(*-04 

(* ZEROPAE WRITES INTEGERS TO AN OUTFILE WITH LEADING O'S 

<* 

FROCEEURE ZEROPAC (VAR WFILE : TEXT; N , ZCT : INTEGER) ; 

VAR I, IN : INTEGER; 

BEGIN 

TN := N; 

REPEAT 

TN := TN DIV 10 ; 

ZCT ;= ZCT - 1 
UNTIL TN = 0; 

FOR I := 1 TO ZCT DO 
WRITE (WFILE, • O'); 

IF N >= 0 THEN 

WRITE (WFILE , N: 1) 

ELSE 

WRITE (WFILE , -N : 1, '-» ) 

END; (* ZEROPAD *) 
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* 



I **#***:<^*** ******* * **** ***********************************) 

* * \ 

* SCANNER *) 

❖ *) 

^******** * * * ** * * ** * * * *** *** ****************** ** ** ******** ** ) 

i* SCAN OSES THE RESERVED WORD ARRAYS TO ISOLATE AND '*) 

(* RETURN SINGLE TOKENS FROM THE WBASIC SOURCE FILE; *) 

(* IT ALSC REWRITES THE SOURCE CODS TO THE LISTF FILE *) 

(* ALONG WITH ANY SCANNER DETECTED ERRORS; SCAN INSERTS * 

(* ITS OWN END-OF-LINE AND END-OF-FILS CONTROL CHARACTERS * 
(* INTO ITS LINE BUFIER (LINEUF) AS THESE CHARS ARE * 

(* DETECTED IN THE SOURCE FILE. *) 

|* *) 

PROCEDURE SCAN (VAR 1CKNUM ; TCKENRNG) ; 

VAR TCHAR ; CHAR: 

I : INTEGER; 



(*= = = = = = === = = = = == = = ========= ====== = = = = === ===== = = = = =======*) 

(* LINENP. RETURNS NUMBER OF THE CURRENTLY SCANNED WBASIC *\ 
(* LINE; WRITES THE LINE NUMBER TO THE LISTF FILE *) 

PADDED WITH ZEROS. * 

i * — — * ) 



FUNCTION IINENR : BASIINRNG ; 
VAR I : EASLINRNG; 

BEGIN 

READ (EASICF, I) ; 

ZERCPAD (LISTF , I , 5) ; 
LINENR := I 



END; (* LINENR *) 

(* *) 



I ^ ^ Q ^ Q 2 ^ — — — ^ ^ i _t _t i i i ii _t _ \ 

i * R DUNE READS TEXT IMMEDIATELY FOLLOWING LINE NUMEER; *) 

* RETURNS THE TEXT IN A MA XLINLEN CHAR 3UFFSR; UNUSED * 

(* PORTION CF 3UFFER IS FILLED WITH BLANKS; WRITES EACH * 
(* CHAR CF TEXT TO THE LISTF FILE AS IT IS READ; REPORTS *S 
(* AN ERROR IF NUMBER OF CHARS EXCEEDS MAXLINLEN . *) 

(* * j 

FUNCTION RELINE ; L N STRING ; 

VAR I, J, LINLENGTH : INTEGER; 

CK : CHAR; 

BEGIN 

I :» 0; 

WHILE (NCT (EOLN(BASICF) ) ) AND (I < MAXLINLEN) DO 
EEGIN 

I : = I + 1 ; 

READ (EASICF, CH) ; 

RDLINE(. I.) := CH; 

WRITE (LISTF, CH) 

END: 

WRITELN (LISTF); 

LINLENGTH := I; 

LNBINX := 0; 

IF LINLENGTH < MAXLINLEN THEN (* FILL UNUSED W/ BLANKS *) 
FOR J := LINLENGTH + 1 TO MAXLINLEN DO 
RDLINE (. J . ) := ELANK; 
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IF (LINLENGTH = MAXLINLEN) AND (NOT EOLN ( BA SIC F) ) THEN 
EEGIN 

WRITE (LISTF, '**F** SCAN ERR 0 R . . . L ENG TH OF TEXT *); 
WRITEIN (LISTF , * AFTER LINUM> ' , MAXLINL EN :2 f * CHARS'); 
ERRCECT := ERRORCT + 1; 

REPEAT (* LOCATE THE EOLN CHAR TO RECOVER *) 

GET (BASICF) 

UNTIL EOLN (BASIC?) 

END ; 

RDLINE (.LI1JLENGTH + 1.) := ENDLIN; (* INSERT EOLN CHAR *) 

GET ( E ASICF) ; (* MOVE FILE PTR PAST PASCAL EOLN CHAR *) 

IF EOF ( E ASIC r) THEN (* OVERWRITE EOLN CHAR IF EOF *) 

RDLINE (.LINLENGTH + 1.) := ENDFIL 

END; (* RDLINE *) 



(* *) 

f* GETNOELANK RETURNS FIRST NON-BLANK CHAR STARTING WITH *| 
(* THE CURRENT CHAR REFERENCED BY THE LINBUF INDEX. *) 

(* *) 



FUNCTION GETNOBLANK : CHAR; 

BEGIN 

WHILE LINEUF (. LNBINX.) = ELANK DO 
LNBINX := LNBINX + 1 ; 

GETNOELANK := LIN 3UF (. LNB INX . ) 

END; (* GETNOELANK *) 



<* *) 

|* GETCHAR RETURNS THE CHAR FOLLOWING LINE BUFFER INDEX *i 
(* AND INCREMENTS THE LINE BUFFER INDEX. *) 

* * i 



FUNCTION GETCHAR : CHAR; 

BEGIN 

LNBINX := LNBINX + 1; 

GETCHAR := LINEUF (.LNBINX .) 

END; (* GETCHAR *) 

(* *> 

f* FUTCHAR INCREMENTS THE ACCUM INDEX AND PLACES A CHAR *S 
(* INTO THAT POSITION IN THE ACCUM ARRAY. *) 

(* *) 

PROCEDURE FUTCHAR (CH : CHAR); 

EEGIN 

IF NOT (ACCINX >= MAXTOKLEN) THEN 
EEGIN 

ACCINX : = ACCINX + 1 ; 

ACCOM (.ACCINX. ) := CH 

END 



END; (* FUTCHAR *) 

( * *) 
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(* PUTANDGET PUTS A CURRENT CHAR INTO ACCOM AND GETS THE 
(* NEXT CHAR FROM THE LINE EUFFER. 

(* 

FUNCTION FUTANDGET (CH : CHAR) : CHAR; 

BEGIN 

PUTCHAR (CH) ; 

PUTANDGET := GETCHAR 

END; (* PUTANDGET 

(* 

f* NUMSPCCL READS ALL DIGITS WHICH COMPRISE ONE UNSIGNED 
(* INTEGER AND PUTS THEM INTO THE ACCUM IN SEQUENCE; 
j* THE NUMBER OF DIGITS SPOOLED IS RETURNED. 

FUNCTION NUMSPOOL : INTEGER; 

VAR I : INTEGER; 

EEGIN 

IF TCHAE IN DIGITS THEN 
BEGIN 
I : = 0 ; 

WHILE TCHAR IN DIGITS DO 
EEGIN 

TCHAR := PUTANDGET (TCHAR) ; 

I := I + 1 
END ; 

NUMSPCCL ;= I 
END 
ELSE 

NUMSECOL ;= 0 

END; {* NUMSPOOL 



i* EXPONENT READS THE CHARS WHICH COMPRISE AN EXPONENT 
j* PART, COUNTS THEM, AND PUTS THEM INTO THE ACCUM. 

PROCEDURE EXPONENT; 

EEGIN 

IF (UPCASE (TCHAR) = ‘E’) THEN 
EEGIN 

TCHAR ;= PUTANDGET (TCHAR) ; 

IF TCHAR IN SIGNS THEN 

TCHAR := PUTANDGET (TCHAR) 

ELSE 

PUTCHAR ('+'); 

ECCUNT ;= NUMSPOOL 
END 



END; (* EXPONENT *) 

<* *) 



121 



* * # # * # * # 



* DECI M ALFT READS AND COUNTS THE DIGITS IN THE * 

* FRACTIONAL PART OF A NU213ER AND PUTS THEM INTO ACCUM. * 

* * 

PROCEDURE DECIMALPT; 

BEGIN 

IF TCHAB = PERIOD THEN 
BEGIN 

TCHAR := PUT AN DGET (TC H AR) ; 

RCCCNT := NUMSFCOL 



END 

END; (* DECIMALPT *) 

(* *) 

(*-05-10 *) 



I * ADJUST IS HIGHLY C ALCUL A TOR -DE PEND ENT ; ADJUSTS ALL 
* LITERAL NUMERICS TO TI-59 FORMAT; SETS VALUES FOR *) 

* LCCUNT r RCOUNT, ANDECOUNT (LEFT, RIGHT, EXPONENT). *) 
* TI-59 WILL ACCEPT FROM ITS KEY30ARD A MAX OF 10 DIGITS *) 
* (PIUS DECIMAL POINT AND SIGN) FOR INTEGERS OR REALS *) 
* WITHOUT EXPONENT, CR 8 DIGITS fPLUS DECIMAL POINT AND * 
* SIGN) AND 2 DIGIT SIGNED EXPONENT. SINCE NUMBERS ARE *) 
(* SCANNED AND PUT INTO THE ACCUM AS THEY ARE READ IN *) 

(* WEASIC SOURCE CODE, THOSE WHICH EXCEED THE ABOVE *) 

MAXIMUMS MUST BE CONVERT ED WHILE IN THE ACCUM. *) 

* THIS ROUTINE IS DIFFICULT TO UNDERSTAND, MUCH LESS *) 

* VISUALIZE, WITHOUT USING A SPECIFIC EXAMPLE TO WALK- *) 
* THROUGH ON PAPER. *) 

* *' 

PROCEDURE ADJUST; 

(* MCVEXF°SHIFTS THE POSITION OF THE EXPONENT PART SO *\ 

(* THAT THE NUMBER HAS MAX OF 8 SIGNIFICANT DIGITS, SIGN, *) 
j* AND DECIMAL POINT (NOTE: SIGNIFICANCE IS LOST) . *)* 

PROCEDURE MCVEXP; 

VAR I : INTEGER; 

EEGIN 

FOR I := 1 TO (2 ♦ ECOUNT) DO 

ACCUM (.9 + I.) := ACCUM (. LCOUNT + RCOUNT + 1 +1.); 

ACCINX := 11 + ECOUNT 



END; (* MCVEXP *) 

( * *) 
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(* ADJEXP CONVERTS NUMEERS TO EQUIVALENT TI-59 COMPATIBLE 
(* FORM EY COORDINATING EXPONENT VALUE ADJUSTMENT WITH 
(* DECIMAL POINT MOVEMENT AND DIGIT TRUNCATION. 

(* 

PROCEDURE AEJEXP (DIFF : INTEGER) ; 

VAR El, E2 , EXP , NEWEXP : INTEGER; 

EEGIN 

El := CRD (ACCUM(. 1 2.) ) * CRD('O'); 

E2 := CRD ACCUM(. 1 3.) - ORD('O'); 

EXP := 10 * El ♦ E 2 : 

IF ACCUM ( . 11 . ) = • -* THEN 
NEWEXP := EXP - DIF? 

ELSE 

NEWEXP := EXP + DIFF; 

El ;= TRUNC(N2WEXP/10) : 

E2 := NEWEXP - (El * 10) ; 

ACCUM ( . 12.) : = CH R (El +ORD('0*)); 

ACCUM (.13.) := CHR (E2 + OED('O')) 



END; (* AD JE XP *) 

<* *) 

EEGIN (* ADJUST MAIN *) 



IF (LCCUNT > 10) OR ((LCOUNT > 8) AND (2C0UNT <> 0)) THEN 

EEGIN 

ACCUM (.9.) := PERIOD; 

IF ECCUNT = 0 THEN 



EEGIN 



ACCUM i 


f.io.; 


:= ' E ' 


ACCUM ! 


.ii. 


i := ' + ' 


ACCUM \ 


.12. 


;= 'O' 


ACCUM i 


.13. ! 


:= ’ 0 ’ 


ACCIN5 


[ • — 


13 



END 
ELSE 
EEGIN 
MCVEXP ; 

IF ECOUNT = 1 THEN 
EEGIN 

M(. 12. ) ; 



END 

END ; 

AC J EX P (LCOUNT - 8) ; 

LCCUNT := 8; RCOUNT ;= 0; ECOUNT := 2 
END 

ELSE IF (LCOUNT + RCOUNT > 10) OR 

((LCOUNT + RCOUNT > 8) AND (ECOUNT <> 0)) THEN 

EEGIN 

IF ECCUNT = 0 TEEN 
BEGIN 

ACCINX := 11; 

R CCU NT ; = 10 - LCCUNT 
END 
ELSE 
EEGIN 
M C VE X 13 * 

RCOUNT ’:= 8 - LCOUNT 
END 

END 

END ; 

(*-- 



ACCUM ( . 13. ) : = A CCU 

ACCUM (. 12. ) : = • O' ; 

ACCINX ;= 13 
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(* ADJUST *) 
*) 



* -Jf * v* 



(*-0 5-1 1 * 

(* RWLOCKUP LOOKS UP TOKEN IN RESERVE WORD TBL EASED UPON * 
(* TOKEN LENGTH; RETURNS TOKEN NUMBER; IF NOT FOUND, * 

(* TCKNUM = IDENTOK (IE. TOKEN IS ASSUMED IDENTIFIER). * 

(* * 

FUNCTION FWLOOKUP : INTEGER 

VAR MATCH : BOOLEAN; 

CHINCX, WDINDX, LGINDX, 

BEGIN 

LGINDX ;= ACCINX; 

WDINDX ;= RWLENG (. LGINDX. 

REPEAT 

MATCH ; = TRUE; 

ACI NCX : = 1 * 

CHI ND X ;= RWWORD (.WDIND 
WHILE (MATCH) AND (ACIN 
BEGIN 

IF UPCASE(ACCUM(. AC 
MATCH := FALSE 
ELSE 
BEGIN 

ACINDX := ACIND 
CHINDX := CHIND 
END 

END ; 

WDINDX := WDINDX + 1 
UNTIL (MATCH) OR (CHINDX 
IF MATCH THEN 

RWLOCKUP := WDINDX - 1 
ELSE 

RWLOCKUP := IDENTOK 
END; (* RWLOOKUP *) 



<* *) 

(*- 05-12 *) 

(* CMTSPCCL READS AND DISREGARDS THE TEXT OF COMMENTS. * 

(* FIAGCMT IS USED FOR COMMENTS CONTINUED ON NEW LINE. * 

(* * 



PROCEDURE CMTSPOOL; 

BEGIN 

FLAGCMT ;= FALSE; (* RESET COMMENT CONTINUATION FLAG *) 

WHILE NOT (TCHAR IN CRITICAL) DO 
TCHA5 := GETCHAR ; 

IF TCHAR = • S' THEN 
FLAGCMT := TRUE 

END; (* CMTSPOOL *) 



(* *) 

(*- 05-13 *) 

(* RECOVER SCANS AND DISREGARDS THE REMAINDER OF THE *) 

* CURRENT TOKEN AND STOPS AT START OF NEXT TOKEN. * 

i'* *) 



PROCEDURE RECOVER; 

EEGIN 

WHILE NOT (TCHAR IN (CRITICAL + (.BLANK.))) DO 

TCHAR := GETCHAR (* SKIP TO NEXT TOKEN AND RETURN *) 



END; (* RECOVER *j 

(*== ========== = = = = ========== =========== = = ===== = = = ========*) 



ACINDX : INTEGER; 

) ; 

x . ) * 

DX <= LGINDX) DO 

I ND X. ) ) <> RWCHAR (.CHINDX.) THEN 

X + 1 ; 

X + 1 

= RWWORD ( . RWLENG (.LGINDX+1.) .) ) ; 

(* BACK-UP THE WORD INDEX *) 
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EEGIN 



(* SCAN MAIN *) 



LTCKNUM 
TOKNUM : 
ACCINX 
LC CUNT : 
RCCUNT 
ECOUNT : 
TCHAR : = 



: = TOKNUM ; 

= ERRORTOK; 

: 

: 9 *» 

: R ; 

: 0 ; 

GET NO BLANK; 



IF (TCHAR = ENDFIL) THEN 
TCKNUM := ENDFILTCK 



(TCHAR = » 5*) THE 



ELSE IF 
BEGIN 
CLINUM 
LINED F 
TCHAR 
TCHAR 
TCHAR 

IF FLAGCMT 
C MTS FOOL 
ELSE 

SCAN (TOKNUM) 

END 



:= LINENR; 
:= RDLINE; 
:= GETCHAR: 
:= GETNOELAN 
:= GETCHAR; 
THEN 



K; 



ELSE IF (TCHAR = ENDLIN) 
EEGIN 
LLINUM 
LINUM 
LINBUF 
TCHAR : 

TCKNUM 
END 



:= LINUM; 

:= LINENR; 

:= RDLINE; 

:= GETCHAR; 

:= ENDLINTOK 



ELSE IF (TCHAR IN 
BEGIN 

WHILE (TCHAR 
BEGIN 

TCHAR : = 

IF TCHAR 
TCHAR : 

END ; 

IF ACCINX <= 
EEGIN 

TCKNUM : = 
IF TOKNUM 
CMTS FOOL 

END 

ELSE 

TCKNUM : = ID 



LETTERS 

N ALFAN 

UTANDGE 
DSCCRE 
EUT AND 



R WLENGCT 

RWLOOKU 
= CMTOK 



ENTOK 



END 

ELSE IF (TCHAR IN DIGITS) 
EEGIN 

LCCCNT := NUMSICOL; 

IF ICHAR = PERIOD THE 
DECIMALPT 

ELSE IF (UPCASE (TCHAR 
FCTCHAR (FERICD) ; 
EXECNENT ; 

ADJUST; 

TCKNUM := NUMEESTOK 
END 



AVE LAST TOKNUM IN LTOKNUM 
NITIALIZE NEW TOKEN NUMEER 
NDICATES TOKEN LENGTH IN ACCUM 
0. OF DIGITS LEFT OF DECIMAL 
0. OF DIGITS RIGHT OF DECIMAL 
0. OF DIGITS IN EXPONENT 
ET NEXT NON-BLANK CHAR 



N 

* READ LINS NO. OF CONT LINS *) 

* READ TEXT CF CONT LINE * 

* MOVE LNBINX PAST TRAIL "S" *) 

* FIND LEADING ’'S' 1 ON NEW LINE *) 

* MOVE LN3INX PAST CONT *) 

* COMMENT CONTINUATION *) 

* SCAN NEXT TOKEN AFTER *) 



THEN 



[* PASS LINUM TO 

* READ LINE NO. 

* READ TEXT OF NEW 

* MOVE L N 31 NX PAST 
(* ASSIGN TOKEN NO. 



LAST L 
OF NEW 



NUM 
LINE 

LINE 

ENDLIN CHAR 
FOR ENDLIN 



*) 
-T* | 

*'i 

*) 



) THEN 
UM) DO 
T (TCHAR) ; 

THEN (* ASSUMES USCORE WILL *) 
GET (TCHAR) (* NOT OCCUR AT END *) 

THEN 

P; 

REM THEN (* LOOK FOR REM CMT *) 



THEN 



N 

) = 'E') THEN 
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# # 



■# * 



PERIOD) THEN 



ELSE IF (TCHAR = 

EEGIN 

DECIMALPT; 

EXECNENT; 

ADJUST; 

TCKNUM := NUMBERTOK 
END 

ELSE IF (TCHAR IN EOUBLE1 ) THEN 
BEGIN 

TCHAR := PUT AH EGET (TCHAR) : 

IF (TCHAR IN D CUBL 3*2) THaN 
TCHAR := PUT ANDGET (TCHAR) ; 
TOKNUH := RWLOCKUP 
END 

ELSE IF (TCHAR IN SPECIALS) THEN 
EEGIN 

TCHAR := PUTANCGET (TCHAR) ; 
TCKNUM := RWLOCKUP; 

IF TOKNUH = CMICKEXC THEN 
CMTSFOCL 

END 



(* LOOK FOR EXCLAH CMT *) 



ELSE I? (TCHAR IN SUBERROR) THEN 
EEGIN 

WRITE ( L IS T F , S CAN ERR 

WRITE LN (LISTF, '"...CHAR NOT I 
EEECRCT := ERRCRCT + 1; 

RECOVER 

END 

ELSE 

EEGIN 

WRITE (L 1ST F , SCAN ERR 

WRIIELN LISTF. • " , . . U NR ECOGNI Z 
EFRCBCT := ERRORCT + 1; 

RECOVER 

END; 



OR FOUND AT "• , TCHAR) ; 
N THIS SUBSET' ) ; 



FOR 



R I := (ACCINX + 1) TO MAXTCKLSN 
ACCUM ( . I .) t= BLANK; (* 3LANK OU 



OR FOUND AT " ' , TCHAR) ; 
ABLE CHAR* ) ; 



DO 

T REMAINDER OF ACCUM *) 



<*— 

END; 



DEBUGGING TOOL: 

IF TOKCCT THEN 

W EITEIN (OUTFILE, • 

IF TCKLIS THEN 

WRITELN (LISTF, ' *:6, TOKNUM:2, 



LISTS TOKNUH AND 
•:6, TOKNUH: 2 



TOKEN AS IT IS READ. * 
(* OPTION 7 * 

, 1 I ' t ACCUM, ' I ') ; 

(* OPTION 8 *) 
' | ' , ACCUM, ' | ' ) 



*) 

(* SCAN *) 
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<* 

j* ERROR/L INE END HANDLING ROUTINES 

I*#****}******#**************:**#**##*:)'**:****:* **** ******** 

(*-06 — — — — — — —————— — — — ——— — — — — — — —— — — —— — — — — — — — — — — —— 

(* P R ECO V ER SCANS A II NE AND DISREGARDS TOKENS UNTIL IT 
J* FINDS A COMMENT, AN END OF LINE, OR AN END OF FILE. 

PROCEDURE FEECOV 
EEGIN 

WHILE NOT (TOK 
SCAN (TCKNUM 

END; 

(*************** 

(*- 20 -*) 

PROCEDURE GENKEY 

(*************** 

(*-07 

(* PERROR IS THE GENERAL PURPOSE ERROR HANDLER WHICH: 

{* GENERATES SPACE FOR REGISTER OR ADDRESS INSERTION IN 
<* ORDER TC PREVENT THE CODEDUMP ROUTINE FROM CAUSING A 
(* SYSTEM ERROR DUE TC INVALID TI-59 CODE GENERATION; 

(* ANNOTATES THE LISTING FILE WITH THE ERROR LOCATION: 

(* INCREMENTS THE ERROR COUNT; RECOVERS TO END OF LINE. 

(* 



ER; 

NUM IN TRAILTOKS) DO 

) (* PRECOVER 

***************************************** 

(OPCODE : INTEGER) ; FOR WA 

** * * * **#**:£ ***********£***************#** 



PROCEDURE PERROR; 



BEGIN 

GENKEY (-1); (* GENERATE REG/ADDR 

GENKEY (-1); (* DUMF ROUTINE FROM 

WRITELN (LISTF,* **F** FATAL ERROR 
ERRCRCT := ERRORCT + 1 ; 

PRECOVER 

END; 



SPACE TO PROTECT CODE 
OPERATING SYS ERROR. 
FOUND AT , ACCUM, ' "• 



(* PERRCR 






(*-0 8 

<* PSUBEBSCE DISTINGUISHES AN ERROR WHICH IS A RESULT OF 
(* USING A WEASIC COMMAND NOT IN THIS IMPLEMENTATION. 

( * 



PROCEDURE PSU3ERE0R; 

EEGIN 

WRITELN (LISTF , ' **F** SUBSET ERROR FOUND AT '•*, ACCUM,"' 
ERRCRCT := ERRORCT ♦ 1 ; 

PRECOVER 

END; (* PSUBERRCR 

(******************************************************** 




*) 



**) 

ED; 

**) 

-* 

* 

% 

*) 
*) 
*) 
*) 
-* j 



*) 
*) 
) ; 



*) 

**) 

- * 

* 

* 

-*> 



•) ; 

*) 
** ) 
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(*-09 

(* PWARN IS USED TO LOCATE THE CAUSE 0? A WARNING FOR THE 
(* USEE AND TO INCREMENT THE WARNING MSG COUNT; NOTE THAT 
<* NORMAL COMPILATION CONTINUES. 

(* 

PROCEDURE FWARN ; 

BEGIN 

WRITELN (LISTF, •**&** WARMING TRIGGERED AT " * , ACC UM , • " •) ; 
WAENCT ;= KARNCT + 1 

END; (* FWARN *) 

^«^^t*^c***** ******************************* sft****#*:**##**#**) 

(*-10 *) 

(* CLCSELINE IS A GENERAL PURPOSE PROCEDURE USED WHEN THE *) 
{* END OF A LINE IS EXPECTED BUT IT IS NOT KNOWN WHETHER *) 
(* CR NOT THE LINE EUFFER INDEX IS IN FRONT OF OR AT THE *j 
(* END OF LINE/FILE CHAR; MAY ALSO BE A COMMENT PRIOR TO. * 
(* *) 



PROCEDURE 


CLCSELINE 






EEGIN 


IF NOT ( 


TCKNUM IN 


TRAILTO KS) 


THEN 


SCAN 
IF NOT 


TCKNUM) ; 
TCKNUM IN 


IRAILTO KS) 


THEN 


P ERROR 





END; (* CLOSELINE *) 
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*#*$**#*****:$:** ** ***************** ^^a**:^*******:*#:****;}:*# ** \ 
* * { 

'* SYMBOL TABLE MANAGEMENT ROUTINES *) 

* *) 

**********************************************************) 

*~1 1 *) 

'* HASHVAL RETURNS TEE HASH VALUE OF THE STRING CONTAINED *) 
* IN THE ACCUM (SUM CF ORD VALUES OF CHARS MOD HASHEASE) * 

'* *' 



FUNCTION HASHVAL ( AC CUM: TKS T RI NG ; ACCINX : INTEGER) : HAS HR NG ; 
VAR HASHSUM, I : INTEGER; 

EEGIN 

HASHSUM : = 0 : 

FOR I := 1 TO ACCINX DO 

HASHSUM := HASHSUM + ORD (ACCUM (. I. ) ) ; 

HASHVAL := HASHSUM MOD (HASHEASE + 1) 

END; (* HASHVAL *) 

(**********************************************************) 

, gt» | •— — — ^ ^ ^ ^ «»»»»*»«« __ ^ | 

(* GETSLCT HASHES ID STRING IN ACCUM INTO SYMBOL TABLE; * 

(* INSERTS NEW SLOT INTO CORRECT HASH 3UCKET AND ENTERS * 

(* IDENTIFIER NAME INTO IDS NT FIELD; RETURNS SLOT POINTER * 

{* TO THE NEW SLOT 3UT VARIANT TAG TYP IS UNDECLARED. * 

(* *) 



FUNCTION GETSLOT (ACCUM: TKSTRI NG ; ACCINX : ACCS NG) : SLCTPTR; 

VAR CURHASH : HASHRNG; 

IDSLCT : SLOTPTR; 

EEGIN 

CURHASH := HASHVAL (ACCUM, ACCINX); 

NEW (IESLCT) ; 

IDS LOTS. ID ENi : = ACCUM; 

ID SLCT2 . S LOT := 3UCKET (. C URH ASH .) ; 

BUCKET (.CURHASH.) := IDSLCT; 

GETSLCI := IDSLOT 

END; (* GETSLCT *) 

(****$***** 4 ********:**$$#******************$**:$:*******:*****) 

(*-1 3 *) 

(* FN CHK RETURNS TRUE/FALSE AS TO WHETHER OR NOT AN *) 

* ACCUM STRING DESIGNATES A USER DEFINED FUNCTION OR NOT *) 
(* *) 



FUNCTION FN CH 



EEGIN 






FN 


CHK 


:= FA 


IF” 


(UPC 


ASE ( 




(UPC 


ASE ( 


THE 


N 


( 


F 


N_CH 


K : = 


END; 






(**** 


**** 


** *** 



K (ACC 

LSE: 
ACCUM ( 
ACCUM ( 
ACCUM ( 

TRUE 

****** 



UM : TKSTRING) : BOOLEAN; 



.1.)) • F • ) AND 

.2. ) 'N* AND 

.3.) USCORE) 



(* 

******* *********************** 



FN_C 
* **** 



HK *) 
** ** ^ 
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(*-1 4 *) 

(* NEWREG RETURNS THE VALUE OF THE NEXT REGISTER WHICH *) 
(* AVAILABLE FOR USE AS VARIABLE STORAGE; RESERVED REGS *) 
(* ARE SKIPPED AND A COUNT IS MAINTAINED TO IDENTIFY THE * 
(* POINT AT WHICH TCC MANY REGISTERS HAVE BEEN USED. *) 

(* NOTE THAT IF THE LAST REG IS RESERVED AN OVERFLOW WILL *) 
(* NOT BE DETECTED AND PROCESSING WILL CONTINUE. NOTE * 
(* ALSO THAT A MEMORY OVERFLOW DOES NOT STOP THE PARSER *) 
(* FRCM ANALYSIS AND CODE GENERATION, HOWEVER THE REG *) 

* SUMMARY HAY NOT REFLECT ACCURATE REGISTER INFO. * 

* — *) 



FUNCTION NEWREG : INTEGER; 

BEGIN 

WHILE NEXTREG IN RESERVE REG DO 
NEXTREG := NEXTREG + IT 
NEWREG := NEXTREG; 

IF NEXTREG = ( REG BASE + STARTREG) THEN 

EEGIN (* NOTE THAT IF LAST REG IS RESERVED, THEN *) 

PWARN ; (* THIS WARNING WILL NOT BE TRIGGERED * 

WRITE (L 1ST F , ****** MEMORY OVERFLOW.. .> '); 

WRITE (LISTF, REGBASE; 1) ; 

WRITELN (LISTF, • VARIABLE NAMES IN USE ... REUSING .') ; 
NEXTREG := STARTREG (* RESET THE REGISTER STACK *) 

END 
ELSE 

NEXTREG := NEXTREG + 1 

END; (* NEWREG *) 

* *** $******** ****** *** ***********************) 



(*- 1 5 *) 

(* NEWLEL RETURNS THE KEY CCDE FOR THE NEXT LABEL ON THE * 
(* LAEEL STACK; IF A LA3EL STACK OVERFLOW OCCURS, THE * 

(* SUMMARY ITEM WHICH INDICATES NUMBER OF LABELS USED MAY *) 
(* NOT REFLECT ACCURATE INFORMATION. *j 

* * ) 



FUNCTION NEWL3L : LBI5NG ; 

EEGIN 

NEWLEL := CLAB EL (. LELCT. ) ; 

LBLCT := LELCT + 1; 

IF LBLCI = LBLSASE + 1 THEN 
EEGIN 
PWARN ; 

WRITE (LISTF, ****** L AB EL 0 V ERFLO W . . .> *); 

WRITS (LISTF, LB LBA S E ; 1) ; 

WRITELN (LISTF, * IN USE. ..RESET TO 0.*); 

LELCT := 1 

END; 

END; (* NEWLEL *) 

(************************* ******************* ** ************) 
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{*-16 *) 

(* FN STACKLCOK SEARCHES THE FNF ACTIVATION STACK FOR THE *) 
* IDENTIFIER IN ACCUM AND RETURNS A POINTER TO ITS SLOT *) 
(* IF IT IS A FORMAL PARAMETER IN AN ACTIVE FNP , OTHER- * 

(* WISE THE POINTER RETURNED IS NIL. *) 

(* *) 

FUNCTION FN STAC KLOOK (ACCUM : TKSTRING) : SLOTPTR ; 

VAR FLOCK, FARMPTR, TPARMPTR : SLOTPTR; 

FOUND : BOOLEAN; 

EEGIN 

FLCCK := FNSTACK; 

FOUND := FALSE; 

PA E MPT R ;= NIL ; 

TPARMPTR := NIL; 

WHILE (FLCOK <> NIL) AND (NOT FOUND) DO 
BEGIN 

FARMPTR := FLOCKS. FNP; 

IF FARMPTR <> NIL THEN 
REPEAT 

TPARMPTR := FARMPTR; 

FOUND := ( P ARM PTR S . I DENT = ACCUM); 

FARMPTR := FARMPT RS. SLOT 
UNTIL (FOUND) OR (PARMPTR = NIL) ; 

FLCCK := FLOORS. FNPLINK 
END; 

FNSTACKLCCK := PARMFTR; 

IF FOUND THEN 

FN STACKLCOK := TPARMPTR 

END; (* FNSTACKLOCK *) 

{# ***#**#*$:*****:*<= ****$*#**$$****#**#***$$*$!# ******:{( *$$****) 



13 1 



/ ;£_ ^ — — — — — — — — — 

* IDICCKU? FIRST SEARCHES ACTIVE FNP STACK (FORMAL * 

* PARAMETERS) , THEN THE SYM TEL UNTIL IT FINDS THE *5 

(* IDENTIFIER NAME CURRENTLY IN ACCUM; RETURNS POINTER TO *) 

(* THE SLCT FOR THAT IDENTIFIER; CREATES AND ENTERS A *) 

(* SLCT ECR THE IDENTIFIER IF IT DOSS NOT YET EXIST. *) 

<* - *) 

FUNCTION IDLOOKUP ( ACCUM ; TK STR ING ; ACCINX; ACCRNG) : SLOTPTR; 

VAR HICOK , TLOCK : SLOTPTR; 



<* *) 

(*- 17-01 *) 

{* ENTERID INSERTS AN APPROPRIATE SLOT INTO THE SYM TBL * 
* FOR THE IDENTIFIER IN ACCUM AND RETURNS A POINTER TO * 

(* THAT SLCT. *) 

(* *) 



FUNCTION ENIERID (ACCUM: TKS 
VAR IDSICT : SLCTPTR; 

EEGIN 

IDSLOT := GETSLOT (ACCUM, 
IF NOT FN CHK(ACCUM) THEN 
WITH IDELOT5 DO 
BEGIN 

TYP := VARID; 
REGNC := NEWREG; 
AUXREG1 ;= -1; 

A U X R EG 2 := -1; 

WRITS (NAMES, 1 * ; 9 

ZERO PAD (NAMrF, REG 
WRITELN (NAMEF, • ' 
END 

ELSE 

WITH IDSLOTo) DO 
BEGIN 

TY? := FNPID; 

FN? := NIL; 

FNPLINK := NIL; 
FNREGNO := NEWF.EG; 
LEL := NZWL3I; 
WRITELN (NAMEF, ' ' 

END ; 

ENTERIC := IDSLOT 
END ; 



TRING; ACCINX: ACCRNG) : SLOTPTR; 



ACCINX) ; 



(* USED FOR INDEX VARS TO *) 
{* FOR-NSXT LOOPS ONLY. *) 




: 5, FNREGNO : 5, ' 



* :3, IDENT) 



(* ENTERID *) 



(* 



*) 
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BEGIN <* IDLOOKUP KAIN *) 

TLCCK := FNST ACKLOCK (ACCUH) ; 

IF HOCK = NIL THEN 
BEGIN 

HLCCK := BUCKET (. HAS HVAI (ACCUM, ACCINX).); 

IF HLCCK <> NIL THEN 
BEGIN 

TLOOK := H LOOK : 

HLOOK := HICOKd.S LOT; 

WHILE (HLOCKONIL) AND (TLOOKa) . I DEN TO ACCU M) DO 
BEG I N 

HLOOK := HLOO Ka> . SLOT; 

TLOOK ;= TLOOKa). SLOT 
END; 

IF TLOCKa) . IDENT = ACCOM THEN 
IDLOCKU ? := TLOOK 
ELSE 

IDLOOKUP := ENTESID (ACCUM, ACCINX) 

END 

ELSE 

IDLOOKUP := 5NTERID (ACCUM, ACCINX) 

END 

ELSE 

IELCCKUF ;= TLOOK 

END; (* IDLOOKUP *) 
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/*#***#***#*$* * * ***$**$** *#***#£*$****##:**# ** ***:$£**# * *# ^C^S J 

(♦ *) 
(* CODE DATA STEUCTORE MANAGEMENT ROUTINES *) 



'$ * 

*_ ^ 0 _____ _ _ _ _ _ — _________ _ ______________ ___ ____ ______ __ 

* NEWCCEE R El U R NS A POINTER TO A NEW CODE DATA NODE; * 

* FIELDS ARE INITIALIZED TO A DEFAULT VALUE (EXCEPT KEY) * 

* * 



FUNCTION NEWCODE (OPCODE ; INTEGER) : CODEPTR ; 
VAR CP : CODEPTR; 



EEGIN 






NEW (CP); 






CPa.SEQF 


= 


NIL; 


CP 2 . JMPP 




NIL; 


CP3.EAKP 


= 


NIL; 


CP2.ADDR 




-i ; 


CP3.KEY 


= 


OPCODE 


NEWCODE 


— 


CP ; 



END; {* NEWCODE *) 

(** ***#*$*********** ******* ********************************) 



(*-19 * 

* PUTKEY INSERTS A CODE DATA NODE INTO THE CODE DATA * 
(* STRUCTURE IN FRONT OF CPCUR BUT AFTER ENDC? WHICH IS * 
i* TO SAY THAT THE NODE IS THE NEW END CODE DATA NODE. * 
(* * 



PROCEDURE PUTKEY (VAR HO LDP : CODEPTR); 

EEGIN 

IF HCLDE = NIL THEN 

HCLDP := NEWCODE (-1) ; 

ENDCPa) . SEQP := HOLBP; 

HOLDPa). SEQP := CPCUR; 

ENDCP := 5NDCP2.SSCF 

END; ’ (* PUTKEY *) 

(************************** ****** **************************) 



(*-2 0 *) 

(* GENKEY FILLS THE CPCUR REFERENCED NODE WITH THE OPCODE *> 
(* PASSED TO IT, AND ATTACHES ANOTHER EMPTY NODE TO THE *) 
(* COES DATA STRUCTURE AFTER THE ONE JUST FILLED. *) 
<* *) 



PROCEDURE GENKEY; 

VAR CP : CCDSPTR; 

EEGIN 

CPCURa). KEY ;= OPCODE; 
CPCURd.SECP ;= NEWCODE (- 1) 
CPCUR := CPCUR2.SECF; 

ENDCP := ENDCPa). SEQP 
END; 



* FORWARD DECLARATION WITH *) 

* ERROR HANDLING ROUTINES *) 



(* GENKEY *) 



(** ************* ** ** **** *** ****************** ** ******** ** **) 
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I 









(*-21 *) 

(* I NSERTKEY IS USED AFTER ALL CODE HAS BEEN GENERATED TO *) 
<* INSERT LABELS TO GCSUB REFERENCES; NOTE THAT ENCCP *) 

(* MUST NOT EE MOYED OR USED BY THIS PROCEDURE SINCE IT * 

i'* NOW RESIDES AT THE END OF THE CODE STRUCTURE AND SILL * 
BE USED TO FLAG THE END OF THE STRUCTURE TO TRAVERSING *) 
POINTER PROCEDURES. *) 

<* *) 

PROCEDURE INSERTKEY (OPCODE ; INTEGER; VAR LOCUS : CODE FT R) ; 

VAR CP ; CCDEPTR; 

BEGIN 

CP := Mia CODE (OPCODE) ; 

CP2.SEQP := LOCUS ; 

LOCUS ;= CP 

END; <* INSERTKEY *) 

(**********************************************************) 



(*-22 *) 

t* GETSEHHDR CONSTRUCTS AND RETURNS A POINTER TO A LINE * 
(* AND CCEE DATA NODE PAIR: ALL FIELDS OF BOTH NODES ARE *) 
* INITIALIZED; THIS FAIR Or NODES IS USED TO HEAD THE *) 
(* CHAIN CF CODE GENERATED FOR A PARTICULAR WBASIC SOURCE *) 
j* LINE. (NOTE THAT NEWCODE INITIALIZES CODE NODE) *j 



FUNCTION GETNEWHDR (LINUM : BASLINRNG) : LINSPTR ; 

VAR LF : LINEPTR; 

C? : CODEPTR ; 

BEGIN 

NEW (LF) * 

LPa.CFTR := NEWCODE (- 1) ; 

LPol.LINC := LINUM; 

LP3.LPTR := NIL; 

GETNEWHDR := LF 

END; (* GETNEWHDR *) 

(4c********** it**:*** ********* ****** ****** ********************) 



(*-23 *) 

(* PUTNEWHDR INSERTS A HEADER (LINE/CODE DATA NODE PAIR) * 
(* INTO THE CODE DATA STRUCTURE AT THE POSITION OF THE * 
(* CURRENT LINE MARKING POINTER, LPCUR. NOTE THAT THE *) 
(* BAKP IS USED HERE TO MARK THE LOCATION OF THE START CF *) 
(* CODE CORRESPONDING TO A NSW SOURCE LINE. *) 

(* * ) 



PROCEDURE PUTNEWHDR (VAR LPCUR, LP : LINEPTR) ; 

BEGIN 

LPS.LPTR := LPCUR3.LPTE; 

LPCURdi.LPTR := LP; 

LPCUR := LP; 

SNDCPa). SEQP : = LP3.CPTR; 

CPCUR := LFi.CPTR: 

CPCCR3.EAKP := ENDCP 

END; (* PUTNEWHDR *) 

(**********************************************************) 
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(*-24 

(* SETLINE COORDINATES THE SET UP OF THE CODE DATA 
(* STRUCTURE FOR THE EEGINN ING OF CODE GENERATED FOR A 
(* NSW WEASIC SOURCE LINE; IF LINE NUMBER HEADER NODES 
(* ALREADY EXIST BECAUSE FORWARD JUMP REFERENCES REQUIRED 
(* THEIR EXISTENCE, THEN THESE NODES ARE CHECKED FIRST 
(* FOR THE CURRENT LINE NUMBER. 



PROCEDURE SETLINE (VAR LPCUR, LP : LINEPTR) ; 

VAR LN UMBER : BASLINRNG; 

EEGIN 

LNUMBER ;= LINUM: 

IF TOKNUM = ENDLxNTOK THEN 
LNUMEER ;= LLINUM; 

IF LFCURoJ.LPTR <> NIL THEN (* IF LINS DATA NODES 
BEGIN ?* EXIST FROM JUMP REF 

IF (LFCUR3 .LPTR2.LINO) = LNUMBER THEN 

EEGIN (* CURRENT LINE NUMBER 

LPCUR := LFCURa). L PTR ; * THE NEXT ONE IN CHA 

ENDCPS.SEQP := LP CUEa). CPTR ; 

CPCUR := LFCURa). C PTR ; 

CFCURS.BAXP := ENDCP 
END 
ELSE 
EEGIN 

IE := GETNEWHDR (LNUMBER) ; 

PUTNEWHDR (LPCUR, LP) 

END 

END 

ELSE 

BEGIN 

LP := GETNEWHDR (LNUMBER); 

PUTNEWHDR (LPCUR, L?) 

END 

END; (* SETLI 



s. , 

IS *) 
IN * 



NE *) 
****) 
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I' 






j 



i 









(*-25 

(* SETJMPEXT SETS THE EXT3R 
j* TO THE WEASIC LINUM INDI 



— * 

NAL JMP PTR FROM CPCUR3.JMPP *) 
CATED BY THE GOTO OR GCSUE *) 
*j 



PROCEDURE SETJMPEXT (LINUM : BASLINRNG) ; 



(* FORWARD JUMP *) 



EEGIN 

IF IINUM > LPCURS.LINO THEN 
EEGIN 

LP1EAD := LPCURS.LPTR; 

LPTRAIL := LPCUR; 

WHILE (LPTRAIL2.LINO < LINUM) AND (LPLEAD <> NIL) DO 
EEGIN 

LPLEAD := LPLEAD a), L PTR ; 

LPTRAIL := LPTRAI La) . LPTR 
END : 

IF LPTEAILS. LINO = LINUM THEN 
EEGIN 

CFCURS.JMPF := LP 
LPTRAI LS. CFTF.S. AD 
END 

ELSE 
EEGIN 

LETRAILS. LETR : = 

LASTLP := LPTRAIL 
CECURS . JMPP := LA 
L ASTLPS. CPTHS. ADD 
END 

END 



TRAILS .CPTR; (* SET JMPP PTR *) 
DR := 0 (* MARK JMPP TERMINAL *) 



GET NEWHDR (LINUM) ; 
o) • L PT S * 

STLFS. CPTR ; (* SET JMPP PTR *) 

R := 0 (* MARK JMPP TERMINAL *) 



ELSE 

EEGIN 

LPLEAD := FI RS TIP ; 
WHILE (LPL EADS. LINO < 
LPLEAD : = LPLEAD®. L 
IF LPLEAD®. LINC = LIN 
EEGIN 

CECUR3.JMPE := LP 
L PLEADS. CPTRa). ADD 
END 

END (* ASSUMES THAT 



END; 



(* 3ACKWARD JUMP *) 

> LINUM) AND (LPLEAD <> NIL) DO 
PT E * 
r JM THEN 

LEADS. CPTR: (* SET JMPF PTR *) 

R := 0 (* MARK JMPP TERMINAL *) 

A LINO = LINUM ALWAYS EXISTS ! *) 

(* SETJMPEXT *) 
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^#* *******$*************** ********** ****** ************** **^ 
S FUNCTION CALL ROUTINES *1 

(* A) 

/********$*******# *£:$***:*****#**#******###*##***#**#*#*** **\ 



(*-40-*) 

PROCEDURE PEXPR; 
(*-4 1-*) 

PROCEDURE FPRIMARY; 



FORWARD; 



FORWARD; 

(********** *** ** ************* ********* *********************) 

*-26 *] 

* GENFNC GENERATES THE CODE FOR SHORT, SIMPLE CALCULATOR * 

* ARITHMETIC FUNCTIONS ('‘QUICK" FUNCTIONS). *] 

* *1 

PROCEDURE GENFNQ (OPND : SLOTPTR) ; 

VAR I : 1..FNQLEN; 

BEGIN 

SCAN (TCKNUM) ; 

IF TCKNUM <> 0 PAR E NTCK THEN (* ' (' *) 

PERRCE 
ELSE 
EEGIN 

SCAN (TOKNUM) ; 

PEXFR : 

I : = 1 ; 

WITH CFND® DO 
REPEAT 

GENKEY (FNQ (.1.) ) ; 

I ; = I + 1 

UNTIL (I >= ENQLEN) OR (FNQ(.I.) = K NOP) 

END 

END; (* GENFNQ *) 

(******************** 4 ****************** *************** ** ** ) 



*-27 

* CHKENLLIST SEARCHES THE 
(* THE FNL HAS EVER BEEN CA 
(* MUST EE ADDED TO TEE USE 
(* 



FNL USE LIST TO DETERMINE IF 
LLED BEFORE; IF NOT, THEN IT 
LIST. 



-*) 

* ) 
* 

._* 



PROCEDURE CHKFNLLIST (VAR IDSLOT : SLOTPTR); 

VAR LISTPTR, HCLDPTR : SLOTPTR; 

USED : BOOLEAN; 

EEGIN 

LISTPTR := FNLLIST; 

IF LISTPTR <> NIL THEN 
REPEAT 

USEE := (IDSLOT®. IDEN 
LISTPTR := LISTPTR®. F 
UNTIL (USED) OR (LISTPT 
IF LISTPTR = NIL THEN 



* TRAVERSE THE FNLLIST * 



T = LISTPTR® .IDENT) ; 

DLL INK; 

R = NIL)* 

‘ (* IF n6t FOUND ON LIST, THEN *) 
BEGIN f* ADD THIS LONG FUNCTION TO THE FNLLIST *) 

HCIDFTR := FNLLIST; 

FNLLIST ;= IDSLCT; 

IDSLOT®. FNLLINK := HO 
END 



END; 

(************************** 



LDPTR 

(* CHKFNLLIST *) 

************ ****** **** **********) 
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i *-2 0 * ) 

* GENFNL GENERATES TEE SBR CALL TO A PNL BODY AND THEN *) 
* CALLS CN PROCEDURE CHKFN LLIST TO SEE I? THE FNL HAS * 
(* BEEN CSED BEFORE. *) 
(*--- *) 



PROCEDURE GENFNL (VAR IDSLOT : SLOT ?T R) ; 

EEGIN 

SCAN (TCKNUM) : 

IF TCKNUM <> OPARENTOK THEN (* • (• *) 

PESRCR 
ELSE 
EEGIN 

SCAN (TOKNUM) ; 

PEXPR ; 

GENKEY (K STO) ; 

GESKEY (FT7LREG) ; 

GENKEY (K SBR) : 

GENKEY jlUSLOT 2 .LBL) ; 

CHKFNLLIST (IDSLOT) 

END 

END; (* GENFNL *) 

( 4 :#****^**** *************** «*»***#*** 4 :**^*#****##*^*#**«***;) 

(*-29 *) 

(* NEWPARM IS CALLED SHE N A FIRST CALL TO A PARAMETER FN *) 

I * IS ENCOUNTERED IN THE WB ASIC SOURCE FILE; AT THIS TIME *) 
* NO REGISTERS HAVE BEEN DESIGNATED FOR THE FORMAL EN *) 
* PARMS; THIS PROCECUPS CREATES THE SYM T3L ENTRY AND *) 
* DESIGNATES THE RESPECTIVE REGISTER FOR THE NEW FARM *) 
* ENCOUNTERED IN THE FN CALL; NOTE THAT THE FORMAL FARM *) 
* IDENT NAME IS NOT YET KNOWN AND WILL BE ENTERED ONLY * 
* AFTER THE FN DEFINITION STATEMENT IS ENCOUNTERED LATER *) 
* * ) 



FUNCTION NEWFARM : SLCTPTR; 

VAR FAR MS LOT : SLOT FT R; 

BEGIN 

NEW (PARMSLOT) ; 

WITH FARM SLOT 3 DO 
EEGIN 

TYF := VARID: 

REGNC := NEWREG; 

WRITELN (NAMEF, ' 1 : 5 , R EGNO : 5 , ' • ; 5 r ' (F N PARAMETER) *) ; 

SLOT := NIL 
END; 

NEWFARM := PARMSLOT 

END; (* NEWFARM *) 

(************* * * ## **$:***#*# $$*:****:£#*#*:#***$:<«:******:*#**:$[* ** ) 
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< 


















*-30 

* GENPARM GENERATES THE FORMAL PARAMETER LIST FOR 
(* PARAMETER FUNCTIONS: IT ALSO GENERATES THE CODE WHICH *) 
|* WILL EVALUATE AN ACTUAL PARAMETER AND STORE IT IN THE * 
j* FORMAL PARAMETER STORAGE LOCATION PRIOR TO FN EXECUTE. *j 

PROCEDURE GENPARM (VAR IDSLCT : SLOT PTR) ; 

VAR PARKPTR : SLOTPTR; 

EEGIN 

SCAN (TOKNUM) ; 

IF TCKNUM = OPARENTCK THEN 
BEGIN 

PARMPTR := IDSLCToJ.FNP; 

IF PARMPTR = Nil THEN 
EEGIN 

PARMPTR := NEWPARM; 

IESLOT2). FNP := PARMPTR 
END ; 

REPEAT 

SCAN (TOKNUM); 

EEXPR; (* STOP AT EACH 



GENKEY (K_STC); 

-TRi 

is = c 

BEGIN 



• i 

t 



AND LAST *)' *) 



GENKEY (PlRMPTP.S. REGNO) ; 
IF TCKNUM = CCMMATOK THEN 



(* NEXT PARAMETER *) 



IF P ARM PTR5). SLOT = NIL THEN 
PA RMPTP2. SLOT := NEWPARM; 

PARMPTR := P ARM PTR3 . SLOT 
END 

UNTIL (TOKNUM = CPARENTOK) (* PEXPR WILL FIND ')• 
OR (TOKNUM IN T RAILTOKS) (* OR WILL FIND END 

END 

END; (* GENPARM 



: ) 



(##********$ fc********:):**#*#*:**:*#*****#*#*#*** *****#**:}:***:$#} 



• -* 



(*-3 1 *) 

(* GENFNP GENERATES CODE SEQUENCE WHICH CALLS A FARM FNP. *) 
(* 

PROCEDURE GENFNP (VAR IDSLOT : SLOTPTR) ; 

EEGIN 

GENPARM (IDSLOT) ; 

GENKEY ‘ 

GENKEY 
GENKEY 

GENKEY ... 

END; ~ (* GENFNP *) 



(K CPARZN) ; 
(K“SBR) : 
(iESLOTa). L3L) ; 
(K CPAREN) 
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j#*#****#****:*# £# £* ** ]j 

j£ $ i 

* FUNCTION DEFINITION ROUTINES *f 

* *1 
**$$**$$*** ************ ********************* ********** ** ** j 

*-3 2 * 

* PUSHFN POSHES A FNP SLOT ONTO THE FNP ACTIVATION STACK * 

* * 

PROCEDURE PUSHFN (VAR FNSLOT : SLOTPTR) ; 

EEGIN 

FNSLOT3.FNPLINK := FNSTACK; 

FNSTACK := FNSLOT: 

FN STACKCT : = FNSTACKCT + 1; 

IF FNSTACKCT > FNSTACKLIM THEN 
EEGIN 
p W A RN * 

WRITE’ (LISTF, ****** SER STACK OVERFLOW > •); 

WRITEIN (LISTF, FNSTACK! IM : 1 , ' RETURN ADDRESSES.*) 

END 

END; (* PUSHFN *) 

(******$******************* ****************** **************) 



(*-33 

(* PCPFN POPS A FNP SLOT OFF TOP OF FNP ACTIVATION STACK. 
<* 



-* 

* 

-* 



EDURE PCPFN; 

HOLEPTR : SLOTPTR; 

N 

LEPTR : = FNSTACK: 

STACK := FNSTACKa.FNPLI NK; 

LEPTR3. FNP LINK : = NIL; 

STACKCT := FNSTACKCT - 1; 

FNSTACKCT < 0 THEN 
BEGIN 
P W A R N * 

WRITE’ (LISTF, ****** ATTEMPT TO POP RETURN A DDR • 

WRITEIN LISTF, 'FROM EMPTY STACK RESET CT = O'); 

FNSTACKCT : = 0 
END 

END; (* POP FN 

(*************** ** * * ** * * *** ****************************** 



PROC 

VAR 

BEGI 

HO 

FN 

HO 

FN 

IF 



) ; 

*) 
** ) 
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(*-34 *) 

(* FILLP A RMIDS READS THE FORMAL PARAMETER IDENTIFIER *) 
(* NAMES IN THE FN P DEF STATEMENT AND FILLS THE IDENT *) 
(* FIELD CF THE RESPECTIVE PARAMETER SLOT (ATTACHED TO * 
(* RESPECTIVE FN P SLOT IN SYM T3L) . * 
(* *) 



EROCE 

VAR 

ESGIN 

IF 

F 

FN P 
SCA 
IF 

P 

ELS 

E 



CURE FILLPAEMIDS (VAR FNSLOT : SLOTPTR) ; 
FNP ASM : SLCTPTB; 



FNSLCTa). FNP = NIL THEN 
NSLCT3- FNP := NEWPARM; 
ARM := FNSLCTa). FNP; 

N (TCKNUM) ; 

TCKNUM <> IDENTCK THEN 

ERROR 

E 

EGIN 

WHILE TOKNUM <> CP ARE 
EEGIN 

FNPARM3. IDZNT : = 
SCAN (TOKNUM): 

IF TOKNUM = COMMA 
BEGIN 

SCAN (TCKNUM) 
IF FNP ARMS .SL 
FNSLCTa). SLO 
FNPARM := FNP 
END 



* IN CASE FN? HAS NOT 

* 3EEN CALLED AT ALL 



NTOK DO 
ACCUM; 
TOK THEN 



OT = NIL THEN 
T := NEWPARM; 
ARMa). SLOT 



* FNP HAS NOT 

* BEEN CALLED 



END; 

SCAN (TOKNUM) 
END 

END ; 



(* SCAN 



TOKEN AFTER ' ) • 
(* FILLPARMIDS 






ii 



*) 

*) 



l*## ********** ************* * * * * * * * * * * ********************** •j 



(*-35 * 

* PFNEND GENERATES CODE FOR THE END OF A FUNCTION EODY * 
(* DEFINITION; IT INCLUDES THE HOUSE- KEEPI NG REQUIRED TO * 
(* RESET THE SCOPE AND VISIBILITY OF VARIABLE NAMES IN * 
(* THE SYMEOL TAELE THROUGH THE FN ACTIVATION STACK. * 

p * 



PROCEDURE PFNEND; 

EEGIN 

GENKEY (K RCL) ; 

GENKEY (FlSTACKa). FNREGNO) ; 

GENKEY (K INVSBR) ; 

POPFN ; 

IF NOT (TCKNUM IN IRAILTOKS) THEN (* 
SCAN (TCKNUM) (* SCANNING END LINE 

END; 



GUARD AGAINST OVER 
IF CALLED BY PDEF. 

(* PFNEND 



*) 

Ii 



p********** ********************************* **************) 
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*-36 *) 

* PDEF GENERATES THE CODE WHICH DEFINES THE SCOPE AND * 

* VISIBILITY FOR VARIABLE NAMES; RESETS THE VALUE CF THE * 

* REGISTER IN WHICH THE FUNCTION VALUE IS RETURNED. *) 

* 



PROCEDURE PDEF ; 

VAR FNSLCI ; SLCTPTB; 

EEGIN 

SCAN JTCKNUM) ; 

IF NOT FN CHK (ACCUM) THEN 
P ERROR “ 

ELSE 
BEGIN 
FNSLCT 
GENKEY 
GENKEY 
GENKEY 
GENKEY 



= IDLOCKUP (ACCUM, ACCINX) ; 

K LBL) ; 

?TT SLOT 2 .L3L) ; 

K ZERO) ; (* MUST ZERO THE VALUE OF THE 

K“STO) ; {* REGISTER IN WHICH THE FN 

(* VALUE IS RETURNED. 



GENKEY (FTJSLOTal.FNEEGNO) ; 
PU SHF N (FN SLOT) ; 

SCAN (TOKNUM) ; 

IF TCKNUM = OPARENTOK THEN 
FILL FARM IDS (FNS LOT ) ; 

IF TCKNUM = EQUALTOK THEN 



( : 



(* LOOKING FOR FARMS 
LOOK FOR ONE LINE FN 



*) 

*) 



EEGIN 

SCAN (TOKNUM) ; 

EEXPR ; 

PFNEND (* GENERATE THE RETURN FROM ONE LINE FN *) 
END ; 

CLCSELINE 

END 

END; (* PDEF *) 



(*-37 *) 

(* GETFNLS IS CALLED AFTER ALL OTHER CODE HAS BEEN * 

(* GENERATED; IT GENERATES THE CODE FOR THE BODIES OF ALL *) 

(* BUILT-IN LONG FUNCTIONS WHICH HAVE BEEN CALLED AT *) 

|* LEAST CNCE_ANC ARE, THUS, CN THE FNLLIST. _ *j 

PROCEDURE GETFNLS; 

VAR LISTPTR : SLOT PTE; 

I : 1..FNLLEN + 1; 



BEGIN 

LISTPTR := FNLLIST; (* GET LONG FN LIST *) 

WHILE LISTPTR <> NIL DO 

BEGIN (* INSERT CODE FOR NEXT LONG FN ON FNLLIST *) 

GENKEY (K LBL) ; 

GENKEY ( LT STPT RcD. L 3L) ; 

X • = 1 * 

WHILE (I <= FNLLEN) AND 

(LISTPTR2 . FN L (. I.) <> K NO?) DO 

EEGIN 

GENKEY (LISTPTRS. FNL (. I.) ) ; 

I ;= I + 1 
END; 

GENKEY (K INVSER): 

LISTPTR := LISTPTR5). FNLLINK (* NEXT LONG FN ON LIST *) 
END 

END; (* GETFNLS *) 
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***#*##****#** **** .****#*£* :$:##*#******#***£** ** **##***:$<:$::$;$:* 
^e ^t 

* EXPRESSION GENERATOR ROUTINES * 

* * 
^*****j$t*;$c:fr****;fc* ## ********* ****************** ** ** ******** ** 



* _ ^ g... — — — — — — __ _ _______ _ _ — • — — — 

* GENID GENERATES CCDE FOR A VARIABLE OR FUNCTION IDENT. * 

A A 



PROCEDURE GENID; 

VAR CP N C : SLOTPTR; 
BEGIN 

OP N C := IDLOOKUP (2CCU 
CASE 0PND2.TY? OF 
V ARID : EEGIN 

IF 0PND2.R 
GENKEY ( 
ELSE 
EEGIN 
GENKEY 
GENKEY 
END 



END 

END; 











EN 


D; 


N( 


31 


D 


• 


GE 


NF 


N1 


:i 


D 


• 


GE 


NF 


NPI 


D 


• 

# 


GE 


NF 






<* c 


AS 


E 


* * * 




>** 


AA 


A A 



II? 

NP 

*) 



( CPND 
CPND 
(CPND 



M, ACCINX); 



SGN 0 = -314 THEN (* REGNO 
K_? I) 



K RC I) : 
OPNDB. REGNO) 



AAA AAAAAA A A AAAAAAAAAAAAAA 



FOR PI *) 



(* GENID *) 

A A A A A AAA AA ) 



A— 39 — — — — — — — ____ _a 

* GENNUM GENERA ISS 11-59 EQUIVALENT CODE FOR A LITERAL * 

* NUMERIC (EOT K INTEGER AND REAL). * 



PROCEDURE GENNUM; 

VAR I, DECFTLOC, ESIGNLOC : INTEGER; 

EEGIN 

DECPTLCC := LC CUNT ♦ 1 ; 

FOR I := 1 TO LCOUNT DO 

GENKEY (TRANSDIGIT ( ACC UH (. I. ) ) ) ; 

IF RCCUNT > 0 THEN 
BEGIN 

GENKEY (K EECPT) ; 

FOR I := 7DECPTLOC + 1) TO (DECPTLOC + RCOUNT) DO 

GENKEY (TRANSCIGIT (ACCUM (. I . ) ) ) 

END ; 

IF ECCUNT > 0 THEN 
EEGIN 

ESIGNLOC := LCCUNT + 1 + RCOUNT + 2; 

IF ACCUM (. DECPTLOC.) <> PERIOD THEN 
ESIGNLOC ;= ESIGNLOC - 1; 

GENKEY (K EE) : 

IF ACCUM (7ESIGNI0C.) = THEN 

GENKEY (K NEG); 

FOP I := (ESIGNLOC + 1) TO (ESIGNLOC + ECOUNT) DO 

GENKEY (TRANSDIGIT ( ACCU M (. I . ) ) ) 

END 

END; (* GENNUM *) 

(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA) 



144 



(*-40 

j* PEXPR PARSES AND GENERAT 



SS CODE FOR EXPRESSIONS. * 

* 



PROCEDURE FEXPR; 

BEGIN 

GSNKEY (K OPAREN) ; 

PPEIM ARY;“ 

WHILE TCKNUM IN BINCFTOKS 
BEGIN 

CASE TCKNUM OF 
PLUSTOK 
MINUSTOK 
KULTCK 
DIVTOK 
EXPICK 

END; (* 

IF NOI (TCKNUM IN 
SCAN (TOKNUM) ; 
PPRIMARY 
END; 

GENKEY (K CPA REN) 

END; 



(* FORWARD DECLARATION WITH *) 
(* FUNCTION CALL ROUTINES *) 



DO 



; GENKEY < 


[K ADDO?) ; ( 


« + « *) 


: GENKEY ( 


K~S UBOP) ; < 


• * ) 


: GENKEY | 


K~M ULTOP) ; < 


« * 1 *\ 


: GENKEY | 


K~ DIVOP) ; | 


I* v * 


: GENKEY | 


K“FOWR) < 


* t **l *) 



1 KS) THEN BEGIN 
END 



(* PEXPR *) 

(*********** ** * * ** ********* ****************************** ** j 



(*-4 1 

(* PPEIMAFY PARSES AND GENE 
f* EXPECTED AS PART CF EXPR 



* 

RATES CODE FOR A PRIMARY ITEM * 
ESS IONS. * 
*) 



PROCEDURE PPRIMARY; 



BEGIN 

CASE TCKNUM OF 
FIUSTCK 



[* FORWARD DECLARATION WITH *) 
f* FUNCTION CALL ROUTINES * 



MINUSTCK 



OPARENTCK : 



ICENTCK 



NUMEERTCK : 



END 

END; 



EEGIN 

SCAN (TOK 
PPRIMARY 
END ; 

EEGIN 

SCAN (TOK 
PPRIMARY; 
GENKEY (K 
END; 

BEGIN 

SCAN (TOK 
PEXPR; 
SCAN (TOK 
END ; 

EEGIN 

GENID; 

IF (TOKNU 
THEN SC 

END; 

BEGIN 
GENNUM ; 
SCAN (TOK 
END 
*) 



NUM) ; 

NUK) ; 
_NEG) 

NUM) ; 
NUM) 



(* • +» *) 
(* *) 

(* » (t *) 



<* CASE 

(************************** 



M = IDENTOK ) OR (TOKNUM=CP ARENTOK) 
AN (TOKNUM) 



NUM) 

(* PPRIMARY *) 

**************************** ****) 
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(*- 42 

|* PCCNDITIC N PARSES AND GENERATES CODE FOR BOOLEAN EXPRS 



PROCEDURE PC CN Dili ON; 

VAR REICP : TOKEN 3 NG; 
INVERT : BOOLEAN; 

EEGIN 

INVERT := FALSE; 

SCAN (TCKNUM) ; 

IF TOKNUM = NOTTOK THEN 
EEGIN 





INVERT := 


TRUE ; 








SCAN ( TO K N 


UM) 








END; 








PE 


XPR ; 








GE 


N KEY (K X T) 


« 






IF 


INVERT“TSEN 










CASE TCKNUM 


OF 








EQUALTCK : 


TOKNUM 


; = 


NOTEQTOK; 




NOTECTOK : 


TOKNUM 


• := 


ZQUALTOK; 




GTTCK : 


TOKNUM 


; = 


LTECTOK; 




GTEQTCK ; 


TOKNUM 


• = 


LTTOK ; 




LTTCK : 


TOKNUM 


l = 


GTEQTOK; 




LTEQTCK ; 


TOKNUM 


• = 


GTTOK ; 




END; (* C A 


3E *) 






RE 


TCP := TOKNU 


M; 







SCAN (TCKNUM) ; 
PEXPR ; 



CASE REICP 


OF 




EQUALTCK 


; BEGIN 






GENKEY 


(K INV) ; 




GENKEY 


(K“ IFX EQT) 




END; 




NCTEQTOK 


; GENKEY (K 


IFXEQT) ; 


GTTCK 


: GENKEY (K 


“IF XGET) ; 


GTEQTCK 


: BEGIN 






GENKEY 


(K XT); 




GENKEY 


(K IHV) ; 




GENKEY 


(K“IFXGET) 




END ; 




LTEQTCK 


: BEGIN 






GENKEY 


(K INV) ; 




GENKEY 


(K^IFXGET) 




END; 




LTTCK 


: BEGIN 






GENKEY 


(K XT); 




GENKEY 


(K“ I?XGET) 




END 




END <* C 


AS E *) 




END ; 







(* SCAN FOR "NOT" *) 



(* BEGIN NEXT EXPR *) 



(* PCONDITICN *) 
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* # * 



! * * 

* LOOPING ROUTINES * 

* * ’ 

******** ****** ***** ******* *********************** ********** 



*-4 3 * 

* ? U SHCCDE POSHES TEE RCODE DATA NODE ONTO THE LOOP/IE * 

* STACK DESIGNATED EY STACK. * 

— — — — — - -- -- -- — * 



PROCEDURE PUSHCODE (RCODE : CODEPTR; VAR STACK : CODEPTP) ; 
EEGIN 

RCODEa) . SEQP := STACK; 

STACK := RCODE 

END; (* PUSHCODE *) 



(***#*#***#******#**##*******#*#**##**********#*##***#****#) 

(#-4 4 *) 

(* POFCODE POPS AND RETURNS THE CODE DATA NODS ON THE TCP *< 

(* OF THE LCCP/IF STACK DESIGNATED. *) 

(* . * j 



FUNCTICN PCPCODE (VAR STACK 



CODEPTR) 



EEGIN 

IF STACK = NIL THEN 
BEGIN 
WRITE 
WRITELN 
PERROR; 

POPCODE := NIL 
END 
ELSE 
EEGIN 

POPCODE ;= STACK; 
STACK := STACKS. SEQP 
END 

END; 



(LISTS, ****** INCORRECT 
(LISTF , • STATEMENTS (IF, 



; CODEPTR; 



NESTING OF CONTROL’) ; 
FOE, CR LOO?) . ' ) ; 



(* POFCODE *) 



(###########*#4c############ #*########*####*#**######**#####) 



(*-4 5 *) 

* SETFWDJMP IS USED TO SET THE JUMP POINTER (JMPP) OF * 
(* THE CURRENT CODE DATA NODE POINTING TO THE MOST RECENT * 
(* CODE DATA NODE ON THE DESIGNATED LOOP/IF STACK; THE *< 
(* POTENTIAL A3S0LUTE ADDRESS SPACE IS GENERATED WITH THE *) 
(* ASSUMPTION THAT THE CODE DATA NODE IN THE STACK TO * 

(* WHICH THE FIRST ADDRESS SPACE NODE IS POINTING WILL * 
(* LATER EE POPPED AND INSERTED INTO THE CODE AT THE *) 

(* APPROPRIATE POSITION. *) 

(# * 'i 



PROCEDURE SETFWDJMP (STACK : CCDEPTR) ; 

EEG I N 

CPC URd) .JMPP := STACK; (* SET JMPP TO NODE JUST PUSHED *) 
STACO.ADCR := 0; (* MARK THE TERMINAL NODE OF JUMP * 

GENKEY (-2); (* GEN SPACE FOR ABSOLUTE ADDRESS *) 

GENKEY (-2) 

END; (* SETFWDJMP *) 

J##****** *#**#*:***###*****# I**#*##**##**#********#***## **#**} 
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■4 6 

SETEAKJUMP IS SIMILAR TO SETFWDJMP EXCEPT IN THIS CASE 
THE FIRST NODE OF A POTENTIAL ADDRESS SPACE PAIR IS 
POSHED ONTO THE DESIGNATED LOOP/IF STACK AFTER ITS 
J HP? HAS BEEN SET TO A CCDE DATA NODS INSERTED AS AN 
ANCHOR FOR THIS BACK JUMP; THE POTENTIAL ADDRESS SPACE 
NODE HILL LATER BE POPPED AND INSERTED (ALONG WITH ITS 
THE INSERTION OF ANOTHER NODE TO COMPOSE AN AD DR PAIR) 



PROCEDURE SETBAKJMP (VAR STACK 
VAR JCODE ; CODEPTR; 

BEGIN 

JCCEE := NFWCOEE (-2) ; 
JCODE3.JMPP := CPCUR; 
CPCUE3.ADER := 0; 

GEN KEY (K NO?) : 

PUSHCODE 1JCODE, STACK) 

END; 



CODEPTR) ; 



(* SETBAKJMP *) 

*********** **** ** *************** **************************) 



*-47 

* FLCOP GENERATES COES FOR 

* IT SETS UP THE START OF 

(* AN ANCHOR NODE FOR THE B 
<* 



THE LOOP COMMAND; *1 
A LOCF CONSTRUCT 3Y GENERATING *) 
ACK JUMP IN THE LOOP. *) 
* } 



PROCEDURE FLOOP; 

BEGIN 

SBTEAKJKP (LOOFSTACK): 
PUSHCODE (NEWCODE ( K NOP) 
SCAN (TCKNUM) ; 

CLOSELINE 

END; 



, ENDLOOPSTACK) ; 



(* ELOCP *) 

(**********************************************************) 



(*-48 

(* PWHIIE GENERATES CCDE FO 
(* IT IS SIMILAR TO PIOO? E 
(* EVALUATE A BOOLEAN EXPRE 
(* 

PROCEDURE FWHILS; 

EEGIN 

SETEAKJMP (LOO PST AC R) ; 
PCONDITICN ; 

PUSHCODE (NEWCODE (K NOP) 
SETFWDJKF (ENDLOOPSIlCK) 
END; 

(************************** 



R THE WHILE COMMAND: 
XCEPT IT INSERTS CODE TO 
SS ION (CONDITION) . 




r ENDLOOPSTACK) ; 

(* PWHILE *) 

********************************) 
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I 






i *-4 9 *) 

* PENDLCCE FOPS AND INSERTS CODE WHICH HAD BEEN STACKED *) 
* EARLIER AS A RESULT OF THE START OF A LGOP CONSTRUCT. * 
* .*( 

PROCEDURE F END LOOP; 

VAR JCCCE : CODEPTR ; 

EEGIN 

IF ICKNUM = ENDLOOETOK THEN 
GENKEY <K GTO); 

JCODE := POFCODE (ICOPSTACK) ; 

PUTKEY (J CCD E) ; 

GENKEY (-2): 

JCCCE := PCPCOCE ( ENDLOOP S T ACK) ; 

PUTKEY ( J CODE) ; 

CLCSELINE 



END; (* P ENDLOCP *) 

(**********#****$********#******* **$****2 ******* ************) 

(*-5 0 *) 

* PUNTIL GENERATES CODE TO EVALUATE A BOOLEAN EXPRESSION *' 
(* AND CALLS PENDLOOE TO CLOSE OUT THE LOOP. *) 

(*- *' 



PROCEDURE PUNTIL; 

BEGIN 

PCC NDITION ; 

PENDLCCE 

END; (* PUNTIL *) 

j**********************************************************) 

(*-5 1 *) 

(* PNEXT GENERATES CCDE FOR THE NEXT COMMAND. *) 

<* THIS RCUIINE IS WEAK IN SYNTAX ERROR CHECKING. *) 

(* *) 

EROCECURE ENFXT; 

VAR IS ICT : SLOTPTR ; 

JCCCE : CODEPTR; 

BEGIN 

SCAN (TCKNUM) ; 

I S LOT := IDLOOKUP (ACCUM, ACCINX) ; 

IF ISLCTE. AUXREG2 = -1 THEN 
GENKEY (K 1) 

ELSE 

EEGIN 

GENKEY (K RCL) ; 

GENKEY (ISLOT2 . AUXREG 2) 

END ; 

GENKEY (K SUM) ; 

GENKEY (IE LOT a) . P.EG NC) ; 

GENKEY (K GTO) : 

JCOCE := TCPCODE ( EORSTAC K) ; 

PUTKEY (JCODE) ; 

GENKEY (-2); 

JCODE := EOPCODE (NEXTSTACK) ; 

PUTKEY (JCODE) ; 

CLCSELINE 

END; (* PNEXT *) 

(*** **************** X^**#*# **# *##*** *********##### ******* ** ) 
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(♦-52 

(* PFOR GENERATES CODE FOR THE FOR COMMAND. THIS ROUT 
(* (AND THE PNEXT ROUTINE) IS WEAK IN SYNTAX ERROR CHE 
* ING. THERE ARE MANY PLACES WHERE SIMPLE CHECKS FOR 
(* CORRECT SYNTAX COULD HAVE BEEN PERFORMED BUT WERE NOT 
(* BECAUSE CF COMPLEXITY SUCH CHECKS WOULD HAVE INDUCED. 
I* 






* 

* 

* 

* 



PROCEDURE PFCR; 

VAR ISLCT : SLOTPTR; 

BEGIN 

SCAN (TCKNUM) : 

ISLCT := IDLOOKUP (ACCUM, ACCINX) ; 

ISLCTS). AUXREG1 := NEWREG; 

SCAN (TCKNUM) ; 

SCAN (TCKNUM) ; 

PEXPR ; 

GSNKEY (K STO) ; 

GENKEY (I'SLOTS.REGNC) ; 

SCAN (TCKNUM) ; 

PEXPR; 

GENKEY (K STO) ; 

GENKEY (iTLOTa) . AU X REGl ) ; 

IF TCKNUM = STEPTOK THEN 
BEGIN 

SCAN (TOKNUM) ; 

PEXPR ; 

GENKEY (K STO); 

ISLCTJ.A UTRSG2 ;= NEWREG; 

GENKEY (IS LOTS) . AUXREG 2) 

END; 

PUSHCODE (NEWCCDE (-2). FCRSTACK) ; 

FOESTACKS). JMPP := CPCUR; 

GENKEY (K EC L) ; 

GENKEY (IELOTai. REGNO) ; 

GENKEY (K X T) ; 

GENKEY (K"RCL) ; 

GENKEY (I"3LO To) . AU X REG 1 ) ; 

GENKEY (K INV) ; 

GENKEY ( K~ IF X G ET ) ; 

PUSHCODE 7 NEW CODE (K NOP) , NEXTSTACK) ; 

CPCURdJ.JMPP := NEXTSTACK; 

GENKEY (-2); 

GENKEY (-2); 

CLCSELINE 

END; (* PFOR * 
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DM 



i **#**##***:* ** * * ** # * * ** * *# * I**##****#**#*###****#******:**# ** ) 

* *J 

* I r -ERANC HING ROUTINES * 

* *) 

(*** ******** >Mc ******************************* **************) 

(*-5 3 *) 

(* QUITERROR IS CALLED W HEN EVER A QUIT STATEMENT IS *) 

{* ENCOUNTERED WHILE NOT WITHIN THE SCOPE OF A LOOP. *i 

j* — — * 

PROCEDURE QUITERROR; 

EEGIN 

WRITE (LISTF , ****** ATTEMPT TO "QUIT" WHILE NOT •); 
WRITEIN {LISTF, 'INSIDE A LOOP.'); 

PERROR 

END; (* QUITERROR *) 

{*****$**$*$ i******************:***#*#**********#*#**:***# $*** ) 

(*-54 *) 

(* FQUIT GENERATES POTENTIAL ADDRESS SPACE WHOSE JMPP *) 

(* POINTS TO THE MOST CURRENT CODE NODS ON THE ENDLOOP * 

(* STACK; THUS, CONTROL WILL LEAVE THE MOST CURRENTLY *) 

(* EXECUTING LOOP DURING TI -59 EXECUTION. NOTE THAT THIS * 

* IMPLEMENTATION WILL NOT ALLOW LINE* TO FOLLOW 'QUIT' * 

(* *) 



PROCEDURE PQUIT; 

EEGIN 

I? ENDLCOFST AC K = NIL THEN 
QUITERROR 
ELSE 
EEGIN 

GENKEY (K GTO) ; 

S ET? W CJM P~ (END LOOP ST A CK) ; 

SCAN (TOKNUM) ; 

IF TOKNUM = NUMEERTOK THEN 
EEGIN 

?SU3SRR0a ; 

WRITE (LISTF, ****** "QUIT" DOSS NOT ACCEPT '); 
WRITELN (LISTF, 'LINE NUMBERS THIS IMPLEMENT.'); 
END 
ELSE 

C ICS EL IN E 

END 

END; (* PQUIT *) 

(*-56-*) 

PROCEDURE PTHENLINE; FORWARD; 
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(*-5 5 — — — ———————— — — — - — — ——— — — — — — — — — —— — — — — — — — — —— — * ] 

(* PTHENELSE DETERMINES WHETHER THE ELSE BRANCH OF AN * 

(* IF-THEN- ELSE IS LINE-ORIENTED (LINE#) OR LOOP-ORIENTED *1 
(* ('QUIT'); APPROPRIATE ROUTINE IS CALLED TO SET JUMP. * 
— *) 

PROCEDURE P THEN ELSE ; 

EEGIN 

SCAN (TCKNUM) ; 

IF TCKNUM = NUMBERTOK THEN 
BEGIN 

GESKEY (K GTO) ; 

PTEENLINE” 

END 

ELSE IF TCKNUM = Q L’ITTOK THEN 
P QUIT 
ELSE 
EEGIN 

WRITE ( LISTF , ****** "IF-THEN-ELSE" LIMITED TO '); 

WRITE LN (L 1ST F / '"QUIT" OR LINE NUMBERS.'); 

PERROR 

END 

END; (* PTHENELSE *) 

«.**##**) 

(*-56 *1 

* PTHENLINE SETS THE LINE- ORIENTED JUMPS FOR THE IF-THEN 

* OR IF-THEN-ELSE STATEMENTS. *] 

*— — — *1 

PROCEDURE PTHENLINE; 

BEGIN 

SET JMPEXT (XNUMBER (ACCUM, ACCINX) ) ; 

GENKEY (-2); 

GENKEY 



SCAN (TCKNUM) ; 

IF TOKNUM = ELSETOK THEN 



PTHENELSE 
ELSE 

CLOSELINE 

END; (* PTHENLINE *) 

(#***$***$** ****** ********************** ******* ************) 

EENQUIT SETS THE LOOP- ORI ENT ED JUMPS FOR IF-THEN OR *) 
-THEN-ELSE STATEMENTS. * 

* « 

PROCEDURE PTHENQUIT; 




BEGIN 

IF 

Q 

ELS 

E 



END ; 



ENDLCCPSTACK = NIL THEN 
UI TERROR 

TT 

EGIN 

SETFWDJMP (ENDLCOPSTACK) ; 

SCAN (TOKNUM); 

IF TOKNUM = ELSETOK THEN 
PTHENELSE 
ELSE 

CLOSELINE 

ND 

(* PTHENQUIT *) 

# # $ $ $ aje # ) 
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(*-5 8 *) 

(* PIF DETERMI N ES THE TYPE OF 'IF* STATEMENT; IT WILL *) 

(* CALL THE REQUIRED SET ROUTINES FOR UNSTRUCTURED JUMPS *) 

* (LINE CR LOOP ORIENTED) OR PERFORM THE SET UP ITSELF * 
(* FOR STRUCTURED JUMPS. *) 

(* *> 



PROCEDURE PIF; 

EEGIN 

PCONDITION ; 

IF TOKNUM = THENTOK THEN 
BEGIN 

SCAN (TOKNUM) j 
IF TCKNUM = NUMEERTOK THEN 
PTHENLINE 

ELSE IF TOKNUM = QUITTOK THEN 
PTHENQUIT 
ELSE 
PERROR 

END 
ELSE 
EEGIN 

PUSHCCDE (NEWCCDE (K NOP), 
CPCUR2.3AKP := ENDIF3TACK; 
SNDIFSTACK2. 3A KP := CPCUR; 
PUSHCCDE (NEWCCDE (K NOP), 
SZTFWEJMP (IFSTACK) ;” 
CLCSELINE 
END 

END; 



ENDIFSTACK) ; 

IFSTACK) ; 

(* PIF *) 



(*********** ***************************************:********) 



(*-5 9 * 

* ELSE ADJUST PERFORMS HOU SE- KEEPING ON THE VARIOUS 'IF* * 
(* STACKS DEPENDENT UPON THE FORM OF THE STRUCTURED 'IF* * 
(* STATEMENT ENCOUNTERED; IF-ENDI? REQUIRES A DIFFERENT * 

(* SEQUENCE OF PUSH/PCP STACK THAN DOSS IF-ELSE- ENDIF OR * 

(* IF-ELSEIF-ELSE- ENDIF. * 

(* * 



PROCEDURE EISE_ADJUSI; 

EEGIN 

WITH ENDIFSTAC Ka) DC 
EEGIN 

IF EAKP <> NIL THEN 
EEGIN 

BAKPa). EAKP := NIL; 

EAKPa) . JMPP3.EAKP := NIL; 

3 AKP ; = NIL 
END 

END 

END; (* ELSS_ADJ UST *) 

(********** *** * *** $**##*$#* S*#**#:*:?**#**:**#***#**:*:******#:**) 
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(*-6 0 *) 

* P ELS El F FERFORMS A SEQUENCE OF STACK MANIPULATIONS IN *j 
(* ORDER TO GENERATE THE ADDRESS SPACES AND JUMPS WHICH *) 
j* IMPLEMENT THE ELSEIF CONSTRUCT. *j 

PROCEDURE PELS EIF; 

VAR JCCEE : CODEPTR; 

BEGIN 

ELSE ADJUST; 

GENKEY (K GTO) ; 

SETFWDJMF' (EN DIFS TACK) ; 

JCODE ;= POPCODE (IFSTACK) ; 

PUTKEY (JCODE) ; 

PCCNDITION; 

PUSHCODE (NEWCODE ( K NOP) , IFSTACK) ; 

SETFWDJMF (IFSTACK) ;~ 

CLOSELINE 

END; (* PEISSIF *) 

(********************************:(<****************:).****:{<*:<<*) 



*-6 1 *) 

* PEISE IS SIMILAR TO ELSEIF EXCEPT IT DOES NOT PARSE/ *) 

* GENERATE CODE TO EVALUATE A BOOLEAN EXPRESSION. * 

* *) 



PROCEDURE PELSS; 

VAR JCODE : CODEPTR; 

BEGIN 

ELSE ADJUST; 

GENKEY (K GTO) ; 

SETFWDJMF' (ENDIFSTACK) ; 

JCODE := POPCODE (IFSTACK); 

PUTKEY (JCODE) ; 

SCAN (TOKNUM) ; 

CLCSELINE 

END; (* FELSE *) 

(*****************************:*****************************) 
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( * — 6 2 — — ————— — — — — — —————— ~~ ~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~ - 

* PENDIF CLOSES UP THE SCOPE OF A STRUCTURED 'IF' 
CONSTRICT 3 Y POPPING THE APPROPRIATE STACKS AND 
INSERTING AND DISCARDING CODE WHICH HAD BEEN STACKED; 
DISCARCING/INSERTING IS DEPENDENT UPON THE PARTICULAR 
TYFE OF * IF • CONSTRUCT ( IF- END IF OR IF- ELS E- SNDIF ) . 



-*) 

•t 5 j 

* j 

* 

-**! 



PROCEDURE PENDIF; 

VAR DUMEC, JCODE : CODEPTR 

BEGIN 

WITH ENDIF ST AC Ka> DO 
BEGIN 

IF EAKP <> NIL THEN 
EEGIN ( 

EAKPa). SAK? := NIL 
BAKP := NIL; 

DUMPC ;= PCPCODE 
DUMPCS.ADDR := -1 
J CCD S := PCFCODE 
PUTKEY (JCODE) 

END 

ELSE 

EEGIN 

JCODE := PCPCODE 
JCODE a) .ADD R : = 0; 
PUTKEY (JCODE) 

END 

END; 

SCAN (TCKNUM) ; 

CLCSELINE 

END; 



* NC ELSE/ELS El F HAS BEEN SEEN *) 
; (* NULLIFY POINTERS *) 



(ENDIFSTACK) ; 
(IFST ACK) ; 



<* CLEAR STACK *) 
(* INSERT ENDIF *) 



(* ELSE/ELSEIF HAS BEEN SEEN *) 



(ENDIFSTACK) ; (* INSERT ENDIF 

(* MARK TERMINAL NODE OF JUMP 



'3«tfilN, 

(* ELSE ADJUST HAS ALREADY 
* CLEIRED ENDIFSTACK. 



(* PENDIF *) 
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(* *) 
(* I/C COMMAND ROUTINES * 

(* * 

( ** 4 : **# ** $* *** ********* ******* ******* ********************** 

<*- 84 -*} 

PROCEDURE NRITLN (VAE WFILE. MSGFILE : TEXT; 

MS G_N 0 : INTEGER) ; FORWARD; 

(**********************************************************) 



^ _ _ _ _ ^ ^ ^ — ___ __ __ _ __ ^ ^ — — ^ ^ ^ ^ _ _ 

* PDATA GENERATES SINGLE NCP TO PROTECT FROM L IN E- 

f* ORIENTED JUMP REFERENCES; THIS COMMAND IS INTENDED FOR 

* USE AT THE START CF A PROGRAM SINCE ITS USE WITHIN 

* LOOPS, SER' S, OR FUNCTIONS WOULD RENDER THE DATA TO 

* READ MAPPING MEANINGLESS. THIS ROUTINE READS THE DATA 
(* VALUES FOUND AS ITS PARAMETERS, COUNTS THEM, AND 

'* STORES THEM IN AN ARRAY OF RECORDS WHICH IS ACCESSED 

* 3 Y SUBSEQUENT READ COMMANDS. 

* 



— *) 
* ] 
*) 

*j 

* 

*j 

* j 

*j 

*j 

-*) 



PROCEDURE PDATA; 

VAR DATASIGN : CHAR; 

EEGIN 

GENKEY (K NOP) ; 

SCAN (TCOUM) ; 

WHILE (TOKNUM IN SIGNTOKS) 

EEGIN 

DATASIGN := BLANK; 

IF TOKNUM IN SIGNTOKS 
EEGIN 

IF TOKNUM = MINUS TCK THEN 
DATASIGN := ; 

SCAN (IOKNUM) 

END; 

IF DATAIX = REGEASE + 1 THEN 

EEGIN 
PWARN ; 

WRITE (LISTF , ’ ***** EXCEEDED 



OR (TOKNUM = NUMBERTOK) DO 
THEN 



L ISTF , ' C AP = 



DATASTORE ' ) ; 

i) ; 

'...RESET DATA INDEX TO 1.') 



REGBASS 



WRITE 

WBITELN (LIST?, 

DATAIX := 1 

END ; 

FATALIST (. DATAIX.) .NUM3 := ACCUM; 

DATALIST (. DATAIX.) .SIGN : = DATASIGN; 

DATAIX := DATAIX + 1; 

SCAN (TOKNUM) ; 

IF TOKNUM = COMMATOK THEN 
SCAN (TOKNUM) 

END ; 

CLCSELINE 

END; (* PDATA *) 

(*****************************************************: *****) 
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(*-64 

(* PREAD CNLY GENERATES A N 
(* LINE-CBIENTED JUNE REFER 
(* WRITES THE READF PILE WH 
(* RESPECTIVE REGISTERS AND 
(* THE READF FILE IS USED T 

* EXECUTION ON THE TI-59, 

* THE CONSTRUCT IS INTENDS 

* PROGRAM. IF NESTED WITH 

* AND FN ' S WOULD RENDER TH 

* 



CP INSTRUCTION TO ALLOW FCR 
ENCES; OTHERWISE, THIS COMMAND 
ICH INDICATES DATA VALUES FOE 
THEIR WBASIC VARIABLE NAMES; 

0 INPUT DATA PRIOR TO PROGRAM 
THUS, SAVING PROGRAM STEPS. 

D FOR USE AT THE START OF A 
IN THE PROGRAM, LOOPS, SBE'S, 

E DATA/READ MAP MEANINGLESS. 



PROCEDURE PREAD; 

VAR IDSICT : SLCTPTB; 



b: 



2GIN 
GENKEY 



'HEN 



(K NOP) 

IF FIRSTRIAD T 
EEGIN 

REWRITE (READF, ’NAME 

WRITLN (READF, MSG F, 

FI R ST READ := FALSE 
END: 

IF NOT INDEXERROR THEN 
EEGIN 

SCAN (TOKNUM); 

WRITELN (READF) ; 

WHILE TOKNUM = IDENTO 
EEGIN 

IDSLOT := IELOOKU 
WITH IDSLOT2 DO 
EEGIN 

IF READIX >= 
EEGIN 
PWARN; 
WRITS 
WRITE 
WR ITELN 
WRITELN 
WR HE 
WRITE 
WRITELN 
IN DEXERR 
PRECOVER 
END 
ELSE 
ESGI N 
WRITS 
WRITE 
WRITE 
WRITE 
SESCPAD 
WRITELN 
READIX : 
SCAN (TOK 
IF TOKNUM 
SCAN (T 

END 

END 



=READF. WBASIC. A’) ; 

9) ; 



K DO 

P (ACCUM, ACCINX) ; 
DAT AIX THEN 



LISTF, 

LISTF, 

LISTF, 

READF) 

READF, 

READF, 

READF 



****** g SAD ?AST DATA ') 
• INDEX. . , IGNORING • ) ; 
'SUBSEQUENT BEAD/DATA.') 

' ) 



« ***** REA d past data 

• INDEX. . .SUBSEQUENT ' ) 



R := TRUi 



•RBAD/DATA IGNORED.') 



READF, 


' • : ; 


READF, 


DATALxST 


READF, 


DAT ALIST 


READF, 


' ' :2) ; 


READF, 


REGNO, 2 


READF, 


• • : 3, I 



READIX + 1 

NUM) ; 

= COMMA TOK 
CKNUM) 



(.READIX. ) .SIGN) 
(.READIX.) .NUMB) 



\> 



ENT) 



THEN 



END 

END 

ELSE 

PRECCVER; 

CLCSELINE 

END; (* PREAD *) 

(*************** ** * * ****** * ****************** ** ********** ** j 



157 



*tt**tttt* it * * * 



{^*6 5 ""*""®" ®* - — — — ——— — — — — — — —— — — —————— — — ———— -- 

I* PRESICRE GENERATES A SINGLE NOP TO PROTECT FROM LINE- 
ORIENTED JUMP REFERENCES. IN THIS IMPLEMENTATION, 
THIS CONSTRUCT IS NOT OF GREAT VALUE SINCE DATA/RzAD 
STATEMENTS ARE SUGGESTED FOR USE AT THE START OF A 
PROGRAM ONLY; THIS ROUTINE RESETS THE READ INDEX TO 
ITS INITIAL VALUE (=1) . 



r* 

(* 

(* 

j* 

(* 

r*« 



-* 

* 

* 

* 

* 

* 

* 

-* 



PROCEDURE PRESTORE; 

BEGIN 

GEN KEY (K NO?) ; 

REACIX : = ~ 1 ; 

SCAN (TCK SUM) ; 

CLCSELINE 

END; (* PRESTORE *) 

^ $ $ jjt 3jl :jt ¥ ** **$$*****#:$::**:***#*:***#**:***$**:****$** ## ** ) 

(*-66 *) 

(* PINPUT PARSES A LIMITED FORM OF THE W BASIC ''INPUT" *1 

{* STATEMENT; THE LIST OF INPUT PARAMETERS MAY CONSIST OF * 
(* VAEIAE IE NAMES ONLY. * 

I* — — — — * 



PROCEDURE PINPUT; 
VAR 



TENDIG 

INPVAR 



-1 ..9 ; 

SLCTPTE; 



EEGIN 



SCAN (TCKNUM) 
GENKEY (K CS) 
TENDIG :=”-1 ; 
W HUE TCKNUM 
EEGIN 



(* FLAG CHECKS IF INPUT VARS ARE LISTED *) 
= IDS NTCK DO 



INPVAR : 


= 


IDLCCKUP 


(A 


ecu 


TENDIG : 


— 


INPV AB3. 


REG 


NO 


GENKEY | 


' x s 


NDIG) ; ( 


* R 


EG 


GENKEY | 


[in 


PVAR3.RE 


GNO 


- 


GENKEY | 


K 


INT) ; 






GENKEY j 


K“ 


BS) ; 






GENKEY | 


K“ 


STO[ : 






GENKEY | 


ITT 


FVARa.RE 


GNO 


) ; 


SCAN (TC 


)K NUM) ; 




IF TOKNUM 


= COMMATOK 


THE 



DIV 10; 



(TENDIG* * 10)1; 

(* CLOSES DI 



BE STORED *) 
SPLAY REG *) 



SCAN (TOKNUM) 

END; 

IF TENDIG = -1 THEN 
GENKEY (K RS) ; 
CLOSELINE " 

END; 



(* PARAMETERS SEPARATED *] 
(* BY COMMAS OR BLANKS. *j 

(* GENERATES A R/S IF "INPUT" * 
* IS USED WITHOUT A VAR LIST * 



(* PINPUT *) 

(********$***************** ********************** **********) 
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<*-6 7 *) 

(* P PEI NT PASSES A LIMITED FCSM 0? THE WBASIC "PRINT" *) 

* STATEMENT; IT ALLOWS EXPRESSIONS, VARIABLE NAMES, AND *) 

* LITERAL NUMERICS IN THE LIST OF PARAMETERS. *) 

*" *) 

PROCEDURE PERINT; 

BEGIN 

SCAN (TCKNUM) ; 

WHILE TCKNUM IN BEGIN EXPRTOKS DO 
BEGIN 
PEXFR ; 

IF EC 100 THEN 
GENKEY (K PRT) 

ELSE “ (* 

EEGIN 

GENKEY (K PAUSE) ; 

GENKEY K“ES) 

END ; 

IF TOKNUM = COMMATOK THEN (* CAN SEPARATE ITEMS BY 
SCAN (TOKNUM) (* COMMAS CR BLANKS. 

END: 

IF PC100 THEN (* WITH FC100 *) 

GENKEY (K ADV) ; 

CLOSELINE ' 

END; (* P PR I NT *) 



(* WITH PC100 *) 
WITHOUT PC 100 *) 
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* * 



* 

(* CTHER COMMAND WORD 

)************************** 



******************************** 

PARSE/GENERATE ROUTINES 
******************************* 



{*-68 

* PCPTICN SETS/RESETS THE 
(* USER OUTSIDE CONTROL OF 
{* THIS CONSTRUCT IS NOT TH 
(* OF WBASIC; IT IS INTENDE 
(* THE SOURCE PROGRAM; USE 
(* UNEXPECTED RESULTS AN D/O 
(* 



OPTION TOGGLES WHICH ALLOW THE 
COMPILER OUTPUTS; NOTE THAT 
E SAME AS THE OPTION STATEMENT 
D FOR USE AT THE BEGINNING OF 
ANYWHERE ELSE MAY PRODUCE 
R OPERATING SYSTEM ERRORS. 



PROCEDURE PCPTION; 
VAR 



SWITCH 

TOGGLE 



BOOLEAN; 

INTEGER; 



BEGIN 

GENKEY <K NOP) ; 

SCAN (TOKUUM) ; 

WHILE NCT (TOKNUM IN THAI LTOKS ) DO 
BEGIN 

SWITCH : = 

IF TCKNUM 
BEGIN 

IF TOKNUM = MINOS 
SWITCH ;= FALSE 
SCAN (TOKNUM) 

END ; 

IF TCKNUM = NUMEERTOK 
BEGIN 

TOGGLE := XNUMBSR 
IF TOGGLE IN (.0. 

CASE TOGGLE OF 



TR UE ' 

IN SIGNTOKS THEN 

TOK THEN 



THEN 

(ACCUM, ACCINX) ; 
,8.) THEN 



0 : LIKK59 


= TRUE; 


1 : PC 100 


= SWITCH; 


2 : OPTPAR 


= SWITCH; 


3 : OPTNOP 


= SWITCH; 


4 ; CODUM? 


= SWITCH; 


5 : SYDUMP 


= SWITCH; 


6 : DS DUMP 


= SWITCH; 


7 : TOKCUT 


= SWITCH; 


8 : TOKIIS 


= SWITCH 


END (* CASE 


*) 


ELSE 




EEGIN 




PWARN ; 





WRITE 
WRITE L N 
END 

END 
ELSE 
BEGIN 
P W AR N ; 

WRITE 
WRITELN 
END; 

SCAN (TOKNUM) 
END ; 

CLOSELINE 
END; 



(LIST 

(LIST 



( L ISTF , 
( LISTF , 



( 



*********** ****** ********* 



F, I***** NO SUCH OPTION '); 

F, ACCUM) 



***** OPTION PARAMETERS ARE ') ; 

-8. .0. .+8 ONLY. ' ) ; 



(* PORTION *) 

****** ************** ******* *****) 
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* PN0LE1 PASSES AND GENERATES CODE FOR AN ASSIGNMENT *f 

* STATEMENT WHICH DOES NOT BEGIN WITH THE 'LET' COMMAND. *) 

* * \ 



PROCEDURE PNOLET; 

VAR RESULT : SLOTPTR; 

BEGIN 

RESULT := IDLOOKUP (ACCUM , ACCINX) ; 

SCAN (TCKNUM) ; 

IF TCKNUM <> EQUALTOK THEN (* •=' *) 

PERRCR 
ELSE 
EEGIN 

SCAN (TOKNUM) ; 

PEXFR ; 

GENKEY (K STO); 

IF RESULTS. TYP = VARID THEN 
GENKEY (RESULTS. REG NO) 

else if result s.typ = fnpid then 

GENKEY (RESULTS. FNREGNO) 

ELSE 

TERROR 

END 

END; (* PNOLET *) 

(****************** * * *** *:*:*****$************* t************ ** J 

(* PLET PARSES AND GENERATES CODE FOR A ’LET* STATEMENT. *< 
* * 



PROCEDURE PLET; 

EEGIN 

SCAN (TCKNUM) ; 

PNOLET 

END; (* PLET *) 

(**********************************************************) 

(*-7 1 *) 

(* PREM GUARDS AGAINST USE CF A GOTO DIRECTED TO A REM EY *) 

* CAUSING GENERATION OF A NODE (LOADED W/ A NOP INSTROC) *) 

* WHICH CAN BE REFERENCED BY A JMPP POINTER; THE SCANNER *) 

(* HAS RESPONSIBILITY FOR SKIPPING OVER THE CMT TEXT. *j 

( * *5 



PROCEDURE PREM; 

EEGIN 

GENKEY (K NOP) ; 

SCAN (TCOUM) 

END; (* PREM *) 

(*************** ** ********* ****************** ** ** ****** ** ** j 
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p-72 

(* PGCTO GENERATES TEE TI-59 GTO STATEMENT AND ITS 
(* POTENTIAL ADDRESS SPACE: THE JUMP POINTER FROM THE 1ST 

* NODE CF THIS ADDRESS SPACE IS POINTED TO THAT NODE IN 
(* THE CODE DATA STRUCTURE WHICH IS THE START (OR, IN THE 
(* CASE CF FORWARD JUMPS, THE POTENTIAL START) OF CODE 

* GENERATED FOR THE KBASIC LINE NUMBER REFERENCED IN THE 
(* GOTO COMMAND. 

I* 



PROCEDURE PGCTO; 

EEGIN 

GENKEY (K GTO) ; 

SCAN (TCKTUM) : 

IF IOKNOM O NUM3EBT0K THEM 
PERRCR 
ELSE 
EEGIN 

SETJMPEXT (XNUMEER (ACCUM, ACCINX) ) ; 

GENKEY (-2); 

GENKEY ( - 2 ) 

END; 

CLCSELINE 

END; (* PGOTO *) 

(************************** ********************************) 



i *-7 3 

* PGCSUE GENERATES A CALL TO A SUBROUTINE REFERENCED 3Y *) 
* WEASIC LINE NUMBER; NOTE THAT ALTHOUGH WBASIC CALLS *) 
* SUBROUTINES BY LINE NUMBER, IHE TI-59 CODE GENERATED *) 
* CALLS A SUBROUTINE BY A LAdEL NAME; AN EXTERNAL JUMP *) 

I * IS SET (AS IN THE GOTO), HOWEVER, RESOLUTION OF THE *) 
* JUMP KILL BE MADE EY INSERTING THE LABEL USED IN THE * 
* CALL IN FRONT OF THE NODE REFERENCED BY THE JMPP; THIS * 

* INSERTION IS DONE AFTER ALL CODE HAS BEEN GENERATED. *) 
* NOTE THAT THIS ROUTINE NEITHER CHECKS FOR NOR DOES IT *) 
* KNCW CF THE EXISTENCE OF A RETURN STATEMENT IN THE *) 
* SEQUENCE CF SOURCE CODE ASSUMED TO BE THE GOSUB BODY; *) 
* IF THE USER DOES NCT PROVIDE A RETURN STATEMENT, THEN *) 
(* NO CORRESPONDING TI-59 INVSBR (S3R RETURN) WILL BE *) 
(* GENERATED, AND THE SBR RETURN REGISTER IN THE *) 
(* CALCULATOR WILL NEVER BE CLEARED OF THAT SBR CALL. * 
(* * j 



PROCEDURE PGOSUB, 



BEGIN 

GENKEY 



(K SBR) 



SCAN (IOKHUM) : 

IF TCKNUM <> NUMBERTOK 
PERRCR 
ELSE 
EEGIN 

SETJMPEXT (XNUMEER 
GENKEY (NEWL3L) 
END; 

CLCSELINE 

END; 



THEN 

(ACCUM, 



ACCINX) ) ; 



(* PGOSUB *) 



(****************************************************** **#*) 
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*-74 

* PRETURN GENERATES THE 

* STRUCTURED PROGRA EMIN 
(* EACH SUBROUTINE CALL; 
(* OF SEE RETURN ADDRESS 
(* SHCULD REMEMBER THAT 

* THE CNLY ONE WHICH WI 

* FOR A GCSUB GENERATED 

* AND INVSER ALSO, EUT 

* FNEND STATEMENT OB A 

* — 



RETURN FROM A SUBROUTINE. 

G DISCIPLINE DEMANDS A RETURN FCR 
NOTE THAT THE TI-59 HAS A LIMIT 
ES WHICH CAN BE STACKED; THE USER 
THE WBASIC RETURN STATEMENT IS 
LL GENERATE THE TI-59 INVS3R 
SB R CALL (FUNCTIONS GENERATE S5R 
THEY DO THIS AS A RESULT OF THE 
ONE-LINE FUNCTION) . 



-* 

* 

* 

*) 

* 

* 

* 

* 

* 

* 

-* 



PROCEDURE PRETURN; 
EEGIN 

GENKEY (K INVS3R) 
CLCSELINE" 

END ; 



{* PRETUPN *) 



( ** * * ******* ** * * ** ********* ****************** ** * * * * *** * ** ** j 



*• 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

(* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

(*■ 



.75 

PPAUSE GENERATES 
CODE AND THE 'LRN 
THE CALCULATOR TH 
(82) (31) WHICH CA 
THE USER MUST 3 AC 
BY ISSUING THE FO 
TC THE CALCULATOR 
• STO 31*; B ST, BS 
ORIGINAL 'STO 3 1 * 
CAICULATCR THESE 
SHIFTING THE CALC 
IN ORDER TO RESUM 
'LRN' (PLACING TH 
FOLLOWED BY • R/S • 
THIS INTERRUPTION 
EFFECTS AND PROVI 
LCCATICN OF ANY • 
WBASIC SOURCE COD 
INSTRUCTION PROVI 
DEEUGGING/TR ANSLA 
OVERHEAD IN TERMS 



iW 

E USER 
NNOT BE 
KSTEP A 
L LOWING 
IMMEDI 
T , NO ? , S 
TO 'NO 
2 INSTR 
CLATOR 
E EX ECU 
E DISPL 
(WHICH 
CF EXE 
DES AN 
PAUSE' 
E; THIS 
EES A C 
TION TO 
CF REG 



) WHICH ARE ACTUALLY A VOID 
WHEN ENTERING HIS PROGRAM IN 
MUST ENTER 'STO 31* INSTEAD 
ENTERED DIRECTLY ANYWAY; TH 
ND CHANGE THE ORIGINAL 'STO 
EDITING KEY STROKE SEQUENCE 
ATELY AFTER ENTERING THE 
ST. THIS WILL REVISE THE 
P 31'; WHEN ENCOUNTERED EY T 
UCTIONS WILL STOP EXECUTION 
INTO THE LEARN (LRN) MODE; 
TION, THE USER MUST ENTER 
AY REG BACK INTO VIEW) 
RESUMES THE PROCESSING MODE 
CUT ION DOES NOT CAUSE ANY SI 
ACCURATE INDICATION OF THE 
STATEMENTS PLACED IN THE 
IMPLEMENTATION OF THE 'PAUS 
ONVENIENT AND RECOGNIZABLE 
OL WHICH CARRIES A LOW 
ISTER/PROGRAM STEP USE. 



TO 

OF 

EN 

31 



HE 

EY 



Ik 



-* 

* 

* 

* 

* 

• * 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

-* 



PROCEDURE PPAUSE; 
EEGIN 



CLOSELINE 

END; 



) ; 


(* VOID *) 


); 


(* LEARN *) 



(* PPAUSE *) 

(*********** ** ********** ***********************************) 
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i *-76 *) 

* PSTOP GENERATES CCDE WHICH CAUSES THE TI-59 TO HALT * 
* EXECUTION AND DISPLAY ’8 88’ THUS SIGNALING THAT A *) 

* PROGRAM STOP HAS BEEN ENCOUNTERED INSTEAD OF A DATA * 

* INPUT CR MAGNETIC CARD LINKING INSTRUCTION. * 

* *) 

PROCEDURE PSTOP; 

VAR I : 1..4; 

BEGIN 

GENKEY (K CE) ; 

FOR I := 1 TO 3 DO 
GENKEY (8) ; 

GENKEY (K RS ) ; 

CLOSELINE" 

END; 

(*#************************ 

(*-7 7 

(* PEND ASSUMES THAT THE END 0? THE WBASIC SOURCE FILE 
(* HAS BEEN ENCOUNTEFED AND WILL INSERT THE END OF FILE 
<* CHAR INTO THE TOKEN STREAM, CAUSING IMMEDIATE 
* TERMINATION OF THE COMPILATION PROCESS. 

* 

PROCEDURE PEND; 

BEGIN 

GENKEY (K NOP) : 

TOKNUM :=~ENDFILTOK 
END; (* PEND *) 



(* PSTOP *) 
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* it * * * * 



|^( ^c | 

* CODE RESOLUTION ROUTINES *j 

* * i 

#*££$*:*:«^** ****** * * * * * * * * * ****************** **************^ 

(*-78 * 

(* P UTGOS UBLBL USES PROCEDURE INSERT KEY TO ENTER THE LEL * 

(* REFERENCED BY THE G0SU3 CALL INTO THE CODE SEQUENCE AT * 
(* LOCATION POINTED TO BY TO BY THE JMPP (LBLP) . *) 

(* # j 

PROCEEURE PUTGOS UBLBL (LBL : LELRNG; VAR LBLP : CODEPTR ) ; 

BEGIN 

WITH LELE2.3AKPS DO 
BEGIN 

INSERTKEY (LBL £ SEQP) ; 

INSERIKEY (K LEI, SEQF) 

END 

END; (* PUTGOS UBL BL *) 

^tf**#***#*# *** * *=**$##*#:* A*************^*** *# *#*##**$#* 

(*-7 9 *) 

(* FINDGCSUELBL SEARCHES THE CODE DATA STRUCTURE TO FIND *} 

* SER CALLS FOR WHICH THE JMPP HAS BEEN SET; THESE WILL * { 

* CORRESPOND TO WBASIC GOSUB STATEMENTS; THE JMPP IS *) 

* FOLLOWED AND THE CORRECT LABEL IS INSERTED INTO THE * 

(* CODE SEQUENCE USING THE 3AKP AND PROCEDURE FUTGOSUELEL * 
(* 



■ — 



PROCEEURE E 

VAR TRAVEL 

BEGIN 

TRAVEL? ; 
TAILP := 
WHILE TRA 
BEGIN 
WITH 
IE 

B 



£ 

TAILP 

TRAVE 

END 

END ; 

(*#*#*****$ 



INDGOSUBLEL (VAR START : CODEPTR) ; 

P, TAIL? ; CODEPTR; 

= STARTS. SEQP; 

START ; 

VELP <> ENDCPS.SEQP DO 
TRAVE IPS EC 

(JMPP <> NIL) AND (TAILPS .KEY = K SBR) THEN 
EGIN (* FIRST CHECK FOR REDUNDANT GOSUB CALL 
IF JMPPS . EAKPS. SEQPS. KEY = K LBL THEN 
KEY := JMPPS. EAKPS. SEQPS. S3QPS. KEY 
ELSE 

PUTGOSUELBL (KEY, JMPP); (* INSERT A LABEL 
JMPPS. ADEB ;= -1; (* UNMAE 

JMPP := NIL (* 

ND; 

:= TRAVSLF: 

LP ;= TRA VELPS. S EQP 



MARK JMPP ACER *i 
RESET JMPP TO NIL *) 



(* FINDGOSUBLEL *) 

*** * * * # * * * *** ****************** **** * ** ** * ** ** j 
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f$_0 Q ___ * _ __ _ ^ _ _ _ _ — ^ — _ _______ ^ _ _ _ _ _ __ ________ _ _ _ J(\ 

* 0 SQPAREN (OPTIMIZE SQUEEZE PARENTHESES) REMOVES *) 

(* UNNECESSARY PARENTHESES (IN PAIRS ) FROM THE CODE DATA *) 
(* STRUCTURE FOR THE MOST COMMON CASES, NAMELY 1 (RC L NN)* * 
(* AND • (<LITERAL NUMERIO) '. *) 

(* *) 

PROCEDURE OSQPARSN (START : CODEPTR) ; 

VAR OPEN, CLOSE, TAILP, MOVEP : CODEPTR; 

CPENCT , CLOSECT : INTEGER; 

(* *) 

i* CCUNTREP COUNTS THE NUMBER OF SEQUENTIAL OCCURENCES OF *J 
(* KEYC A I A PARTICULAR LOCATION IN THE CODE DATA STEUCTR *) 
(* STRUCTURE; NOTE THAT IT ALSO CHECKS FOR JMPP POINTERS * 
(* TO THESE KEYS. *) 



FUNCTION COUNT RE F (VAR MOVE P; CODEPTR ; K EYC : IN TEGER) ; INTEG ER ; 
VAR COUNT : INTEGER; 

EEGIN 

COUNT ;= 0; 

WHILE (MCVEPS.KEY = KEYC) AND (MOVERS. ADDR = -1) DO 
BEGIN 

MCVEP := MOVEPS.SEQP; 

COUNT ;= COUNT + 1 
END; 

COUNTREF ;= COUNT 

END; (* CCUNTREP *) 

<* *) 

i* NUMBERUN MOVES ITS POINTER PARAMETER PASSED ANY NODE *1 
(* WHICH CONTAINS A NUMERIC LITERAL KEY CODE AND HAS NO *) 

(* POINTER REFERENCE; IT IS ASSUMED HERE THAT NO JUMP *) 

(* POINTER IS EVER SET IN THE MIDDLE OF A NUMERIC LITERAL *) 
j* KEY_SEQUENCE,_ELSE PART_OF THE NUMBER MAY BE REMOVED. *j 

PROCEDURE NUMBERUN (VAR MOVE? : CODEPTR); 



BEG T N 

"WHILE (MOV EPS. KEY IN NUMERICKSY) AND (MOVERS. AD DR = - 1) DO 
MOVER := MOV EPS. SEQP 

END; (* NUMBERUN *) 

(* — — — — — 



166 




I 




!* REMOVEPAREN TAKES PAIRS OF NODES OUT OF THE CODE DATA *j 
(* STRUCTURE: NOTE THAT THIS PROCEDURE DOES NOT KNOW WHAT *) 
(* CODE IT IS REMOVING; THAT IS DEFINED 3Y OSQPAREN. *) 

(* *) 

PROCEDURE REMOVZPARSN (VAR OPEN, CLOSE : CODEPTR ; 

OPENCT, CLOSECT : INTEGER) ; 

BEGIN 

REPEAT 

OPENS. SEQP := OPENS. SEQPS. SEQP; 

OPENCT := OP ENCT - 1 : 

CLOSES. SEQP := CLCSEai.SECP3.SEQP; 

CLOSECT := CLOSECT - 1 
UNTIL (CPENCT = 0) CR (CLOSECT = 0) 

END; (* REMOVEPAREN *) 



<* 

EEGIN (* CSQPAREN MAIN *) 
MOVE P := START; 

WHILE MCVEP3. SEQP <> NIL 
EEGIN 

IF (MCVEPS .KEY = K OP 
EEGIN 

OPEN := TAILP; 
OPENCT := CCUNTRE 
IF (MOVERS . KEY=K 
EEGIN 

CLOSE := MOVE 
MOVEP := MOVE 
CLOSECT := CO 
IF CLOSECT > 
REMOVEPAREN 

END 

ELSE IF (MOVEP3.K 
( MCVEP3. A 

EEGIN 

WHILE MOVE Pa). 

MOVEP := MO 
CLOSE := MOVE 
MOVEP := MOVE 
CLOSECT := CO 
IF CLOSECT > 
REMOVEPAREN 

END 

END: 

TAIL? := MOVER: 
MCVEP := M0VEF3. SEQ 

END 

END; 

(******:******#** ********* 



-*) 



DO 

AREN) 



P (MOVEP, 
BCL) AND 

P3. SEQP; 



AND (MOV EPS. ADDR = -1) THEN 

*) 



(* SET OPEN PTR 
K OPAREN); 

(MOVERS. ADDR=-1) THEN 



(* SET CLOSE PTR 

PS. SEQPS. SEQP; (* MOVE AHEAD 

UNTREP (MOVEP, K CPAREN); 

0 THEN (* I? EXTRAS, DELETE 

(OPEN, CLOSE, OPENCT, CLOSECT 

EY IN NUMERICKEY) AND 
DDR = -1) THEN 

SEQPS. KEY IN NUMERICKEY DC 
VEPS.SSQP; (* PASS OVER NUf 
? ; (* SET CLOSE 

PS. SEQP; (* MOVE A! 

UNTREP (MOVEP, K CPAREN) ; 

0 THEN (* IF "EXTRAS, DEJ 






» 



ER 


*) 


TR 


*) 


AD 




TS 


*) 


CT) 



(* OSQPAREN *) 
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"] , _ ________ ______________________ _ _ _ ^ 

* OSQNOP (OPTIMIZE SQUEEZE NOP) LOCATES ALL 'NOP' KEY *) 
(* CODES , RESETS POINTER REFERENCES TO THEM IF THEY EXIST,*) 

* AND THEN PINCHES THEM OUT OF THE CODE DATA STRUCTURE. * 

/* *s 



PROCEDURE OSQNOP (VAR START : CODEPTR) ; 

VAR CUR : CODEPTR; 

I : 0. . 3; 

INDEX ; CTEXTRNG; 



EEGIN 

CUR := START; 

WHILE CUR O NIL DC 
EEGIN 

IF CURS.JMPP <> NIL T 
WHILE (CUR5) . JKPP3). K 
AND (CUR9.JM? 
BEGIN 

CURd.JMPP2.ADDR 
CUR3.JMPP := CU 
CUR2.JMPP2. ADDR 
END; 

CUR := CURd.SEQF 
END; 

CUR : = ST A RT * 

WHILE CUR2.SEQP <> NIL DO 
3EGIN 

INDEX := CURa) .KEY; 

FOR I := 1 TO (CTE XT ( 

CUR := CURd.SEQP; 

IF (CURa). SSQ Pa). KEY = 
THEN CURE). SEQP : = C 
ELSE 

CUR := CURa). SEQP 

END 

END ; 



* RESET JMPPS PAST NOPS *) 

* ASSUMES THAT NO JMPP * 

* IS SET ON POTENTIAL * 

HEN (* ADDR SPACE NOPS. *1 

EY = K NOP) 

P <> ENDC?) DO 

; = - 1 ‘ 

R2. JMPfca). S 3 Q P ; 

:= 0 



(* SQUEEZE OUT NOPS *) 

(* FIX THE INDEX TO CTSXT *) 
. INDEX.) . UNIT) DO 

(* BYPASS REG /ADDR SPACE 5 *) 
K NOP) AND (CURa).SEQPa). ADDR = -1) 
Ufld.SEQP2.SEQP (* REMOVE NOP *) 

(* NEXT NODE *) 

(* OSQNOP *) 



{jjC**:***:**:****#*;**:**:** $:*#*** a***:*:*###:*#:****:*:**#:******:*:**## ) 
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(*-82 

(* RESOLVE ADDS FILLS THE A DDR FIELDS OF ALL TI-59 CODE 
(* NODES LINKED IN THE CODE DATA STRUCTURE, AND THEN 
(* FILLS THE KEY FIELDS OF NODES WHICH HAVE NON-NIL 
(* JMFF'S WITH THE ABSOLUTE ADDR POINTED TO BY THOSE 
J* JMFF'S; JMPP'S ARE THEN SET BACK TO NIL. 

PROCEDURE RESOLVE_ADDR (START : CODEPTR) ; 

VAR TRAVEL : CCDEPTR; 

I : INTEGER; 



(* 

! *-82-01 

* INSERT JMPADDR CONVERTS THE ADDR FOUND AT THE NODE 
* REFERENCED BY JMPF PTR INTO A TI-59 MACHINE CODE ADDR 
* (2 INTEGERS IN RANGE 0. . 99) , AND INSERTS IT INTO THE 
* THE KEY FIELDS (OCCUPIED BY -2'S) OF THE NODES FROM 
* WHICH THE JMPF ORIGINATES. 

(* 



PROCEDURE INSERT _JMPAD DR (J ADDR : INTEGER); 
VAR HIPART, LOFART : INTEGER; 



EEGIN 

HIPART := JA DDR DIV 100; 
LOPART := JA D DR - HIPART * 

T RAVELS .KEY := HIP ART: 
TRAVELS!. SEQP 5). KEY := LOPART 
END; 



100 



* SPLIT ADDR INTO *) 

* HI/LO PARTS; * 

* OVERWRITE NOP'S * 

* W/ ABS ADDR'S. * 
(* INSERT JMPADDR *i 



BEGIN (* RESOLVE ADDR MAIN *) 

TRAVEL := START;" 

I • = 0 * 

WHILE fEAVEL <> ENECPS.SEQ? DC (* INSERT ABSOLUTE ADDR *) 
BEGIN 

TRAVELS). ADDR : = I; 

TRAVEL := TR A V E IS). SEQ F ; 

I := I + 1 
END ; 

TRAVEL := START; 

WHILE TRAVEL <> ENDCPS.SEQP DO (* FIND/JUSTIFY JMP ADDR *) 
EEGIN 

WITH TRAVELS DC 

IF J MP P <> NIL THEN (* FIND JMPP'S WHICH ARE SET *) 
BEGIN 

INSERT J MP AD DR (JMPPS.ADDR) ; 

JMP P ;= NIL (* SET JMPP BACK TC NIL *) 

END; 

TRAVEL := TRAVELS. SEQ F 
END 

END; (* RESOLVE ADDR *) 
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# it it it it # it it 



/##******#* # ** **$**:*:*£* ******::**#*:£**##*** r***##:*#^;*;**# ** J 

i * 

* OUTPUT DUMP ROUTINES *) 

* *) 
****************************************************** ****^ 



(*-83 *} 

* FINDMSG LOCATES TEE START OF THE CORRECT MESSAGE IN * 
(* THE MSGFILE . *) 

(* — - — — «) 

PROCEDURE FINDMSG (VAR MSGFILE : TEXT; VAR ESCHAR ; CHAP; 

MSG NO : INTEGER) ; 

VAR CH : CHAR; 

I ; INTEGER; 

EEGIN 

RESET (MSGFILE, ' N AME= MSG F . P ASC AL . A • ) ; 

REAELN (MSGFILE, ESCHAR); 

REPEAT 

READ (MSGFILE, CH); 

IF CH = ESCHAR THEN (* CHECK FOR ESCAPE CHAR & MSG NO *) 
REAELN (MSGFILE, I) 

ELSE 

REAELN (MSGFILE) 



) OR 



UNTIL (EOF (MSGFILE 
END ; 

^*** ********** ****** ******* 



(I = MSG NO) ) 

(* FINDMSG *) 

*************** ******* **********) 



(* — 8 4 

(* WRITLN WRITES A FULL MES 
* IN THE MSGFILE. 



*' 

SAGE FROM 'iN* TO $N' AS FOUND *j 

* 



PROCEDURE WRITLN; (* FWD DSCL WITH I/O COMMAND ROUTINES *) 



VAR CH, ESCHAR : CHAR; 

I : INTEGER; 

EEGIN 

FINDMSG (MSGFILE, ESCHAR, 
REPEAT 

READ (MSGFILE, CH); 

IF CH=ESCHAR THEN (* C 
REAELN (MSGFILE, I) 
ELSE 

WRITE (W FILE, CE) ; 

IF EC IN (MSGFILE) THEN 
EEGIN 

REAELN (MSGFILE) ; 
WEITELN (W FILE) 

END 



MS G_ NO) ; 



HECK FOR EMBEDDED ESCAPE CHARS *) 
(* AND DISCARD IF FOUND. *) 



(* NEXT LINE *) 



UNTIL (EOF (MSGFILE)) OR 
( (CH = ESCHAR) AN" 

END; 



( (CH = ESCH 
(** ***************** ******* 



ND (I = MSG_ N 0) ) 



(* WRITLN *) 

**************************** ** ** j 
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(*-85 *) 

* WHIT WRITES A ONE-LINE MESSAGE OR THE FIRST LINE OF A *) 
(* MESSAGE FROM THE MSGFILE. * 

(*- *) 

PROCEDURE WRIT (VAR WFILE, MSGFILE : TEXT: 

MSG NO : INTEGER) ; 

VAR CH, ESCHAR : CHAR; 

I : INTEGER; 

EEGIN 

FINDMSG (MSGFILE, ESCHAR, MSG NO); 

REPEAT 

READ (MSGFILE, CH); 

WRITE (WFILE, CH) 

UNTIL ZCLN (MSGFILE) 

END; (* WRIT *) 

(*##********#*******:*******$***#*:***##:*******:*:<£**#*;«■*:***:(<**) 

^ ~ ~ m _ _ _ _ _ _ _ _ _ « — — ^ ^ 

(* REPORT COMPUTES AND WRITES THE REGISTSR/LA BEL SUMMARY. ** 
(* *> 

PROCEDURE REPORT (VAR WFILE : TEXT) ; 

VAR LTCTAL : LBLRNG: 

RTCTAL ; INTEGER; 

EEGIN 

WRITLN (WFILE, MS G F , 3); 

WRITELN (WFILE, ERBCRCT:7 , • FATAL ERRORS.’); 

WRITELM (WFILE, WAENCT;7, ’ WARNING MSGS.’); 

IF ERRCRCT > 0 THEN (* CALCULATIONS INCOMPLETE *) 

WRITLN (WFILE, MSGF, 14); 

RTCTAL := NEXTREG - STARTREG; 

LTOTAL ;= LBLCT - 1 ; 

WRITELN (WFILE); 

WRITELN (WFILE, NE XTREG: 1 , ’ IS NEXT AVAILABLE REGISTER’); 
WRITELN (WFILE TOTAL REGISTERS RESERVED = • , RESER VECT: 1) ; 
WRITELN (WFILE,’ TOTAL REGISTERS USED = ’, RTOTAL : 1) ; 

WRITELN (WFILE, ’TOTAL LA EELS USED = ’, LTOTALil); 

WRITLN (WFILE, MSGF, 4) 

END; (* REPORT *) 
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, 









/#• _ _ _ _ _ _ __ _ _ _ _______ _ _ _ _ _ # 

(* CCDEDUMP WRITES THE TI-59 CODE STORED IN THE CODE DATA * 
(* STRUCTURE AND APPLIES THE CTEXTF FILE TO EACH STEP TO * 



PRODUCE THE LITERAL TEXT OF FOR THE KEY STROKES. * 

'* * 



PROCEDURE CCDEDUMP (VAR WFI LE : TEXT; VAR TICODE : CO DEPTH) ; 

VAR CUR, HOLD : CODEFTR; 

I : 0. . 3; 



(* *) 

|J WRCODE WRITES THE NUMERICAL FORM OF TI-59 AD DR AND KEY *| 



PROCEDURE WRCODE (VAR CUR : CODEPTR) 



BEGIN 

WRITE (WFILE , ' 

ZEROPAD (WFIi,E f 
WRITE (WFILE, 1 
ZEROPAD (WFILE, 
WRITE (WFILE, 5 
END; 



» • 5 ) ; 

CURa.’ ADDR 

* ; 3 ) ; 

CUEa!KEY, 

• : 3) 



3 ) 



2) 



(* WRCODE *) 



(* *) 

EEGIN (* CCDEDUMP MAIN *) 

CUR := TICODE: 

WRITLN (WFILE, MSGF, 5); (* HEADER MSG *) 

WRITE WFILE, »$•); (* 'S' MUST 3E WRITTEN HERE, *j 



l* ELSE WILL INTERFERE W/ WRITLN *) 
WRITLN (WFILE, MSGF, 6); (* BEGIN CODE MSG *) 

WHILE CURS. SEQP <> NIL DO 
BEGIN 

WECCDE (CUR); 

WRITELN (WFILE, CTEXT (. CURS. KEY .). CODECHAR) ; 

IF CURa). KEY IN (.K S3 R, K L3L. ) THEN 

BEGIN (* MUST 50T TAKr! SBR^S OR LBL’S LITERALLY *) 
CUR := CURS. SEQP; 

WRCODE (CUR): 

WRITELN (WFILE, C TEXT (. CUR a) . KEY .). CODEC H AR) 

END 

ELSE 

EEGIN 

H C LD • = COR* 

FOR I * := 1 TO (CTEXT (.HOLDS. KEY.) .UNIT) DC 

3EGIN (* UNIT FIELD DEFINES TYPE INSTRUCTION *) 
CUR := CURS. SEQP; 

WRCODE (CUR) : 

ZEROPAD (WFILE, CURS.KEY, 2); 

WRITELN (WFILE) 

END 

END ; 

CUR : = CURS. SEQP 
END 

END; (* CODEDUMP *) 

{***************** ****** ***********************************) 
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(*-88 *) 

(* LINK INTERFACE CREATES THE SCRATCH FILE WHICH PROVIDES *) 
(* THE LINKER WITH ALL THE INFORMATION IT MOST HAVE TO *) 
(* SEGMENT THE TI-59 CODE; ENTRIES IN SCRATCH ARE IN THE *) 
(* FORM CF SUB-FILES (MESSAGES) DELIMITED BY "$N". * 

(* £) 

PROCEDURE LINK_I NTERFACE ; 

|* LOGTO IS USED BY LINK INTERFACE TO READ AND WRITE *i 

(* FILES TO THE SCRATCH TILE (COPY). *’> 

(* -* 'i 



PROCEDURE LCGTO 
VAR CH : CHAR; 



(VAR WFILE, RFILE : TEXT; MSG NO ; INTEGER); 



[SPILE, 
ICT EOF 



'$» , MSG NO: 1) ; 
(RFILE) DO 



EOLN (RFILE) 



BEGIN 

WRITE ( 

WHILE N 
BEGIN 

WHILE NOT 
EEGIN 

READ (RFILE, CH) ; 
WRITE (WFILE, CH) 
END; 

WRITELN (WFILE); 

IF NOT EOF (RFILE) THEN 
REAELN (RFILE) 

END 



DO 

(* 



writeIn 

WRITELN 

END; 



(WFILE , 
(WFILE) 



M SG N C : 1 ) 



(* WRITS MSG DELIMITER *) 



COPY THE FILE TO SCRATCH *) 



WRITE MSG DELIMITER *) 
(* LCGTO *) 



(* *) 

EEGIN (* LINK_ INTERFACE MAIN *) 

REWRITE (SCRATCH, 1 NAME=S CRATCH. PASCAL. A ') ; 

WRITELN (SCRATCH, ’SI'): {* NEXT REGISTER = MSG SI *) 

WRIISLN (SCRATCH, NEXTREGrl. • IS NEXT AVAILABLE REG. ' ) ; 
WRITELN (SCRATCH, ’SI') ; WRITELN (SCRATCH); 

WRITELN (SCRATCH, '$2'): (* TI-59 CODE = MSG $2 *) 

CODEDUMP (SCRATCH, BEG INC P) ; 

WRTTT.N fFCRATCH. VFG? . 7 \ • <* 3ND CO H F M #\ 



WRITELN (SCRATCH,' '12*)'; WRITELN (SCRATCH) ; 

RESET (NAMEF, ' NA M E=NA MEP . WB ASIC. A 1 ) ; (* REG/NAME MAP *) 

LOGTO (SCRATCH, NAMEF, 3) ; (* = MSG $3 *) 

IF NCT FIRST RE AD THEN (* DATA/READ MAP = MSG $4 *) 

EEGIN 

RESET (READF, ' NAM S=R EADF. WBASIC . A • ) ; 

LOGIC (SCRATCH, READF, 4) 

END 



END; (* LINK_INTEEFACE *) 

{♦♦Sc*##***#* ***$*$ *$*#£* ^*******4c4t** * *4= *** ^4t****4:**^#* **) 
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(* SYMTELCUMP IS A SPECIAL PURPOSE ROUTINE USED FOR * 
(* DEBUGGING; IT WILL CUM? THE ENTIRE CONTENTS OF THE * 
(* COMPILER SYMBOL TAELS BUCKET BY BUCKET; THIS ROUTINE *{ 
(* IS TOGGLED USING OPTION NUMBER 5. *) 
(* - *) 



PROCEDURE SYMTBLDUHP (VAR W FILE 

VAR I : INTEGER; 

LOCK : SLOTPTR; 



EEGIN 

WRITLN (WFILE , MSGF, 10); 
FOR I := 0 TO HAS HE ASE DO 
IF BUCKET ( . I . ) <> NIL T 

BEGIN 

ZEE CPA D (WFILE, I, 
WRITLN (WFILE- MSGF 
ICO K : = EUCKET (. I. ) 
REPEAT 

WRITE (WFILE, 1 ' 

WITH LOOKS CO 
CASE TYP OF 



HEN 

2 ) : 

, ^ i) ; 



TEXT; BUCKET : HASH) ; 



(* HEADER MSG *) 
(* SKI? EMPTY BUCKETS *) 

(* BUCKET BOUNDARY MSG *) 



(* UNTIL LOOK = NIL *) 
; 1 1 , LOOKS. IDENT, 1 * ; 1) ; 



VARID 



EEGIN 
IF RE 
WRI 
ELSE 
3EG 
2 
W 
I 



(* PI = -3 14 *) 
CONSTANT 1 ) 



GNO < 0 THEN 
TEL N (WFILE, 

IN 

EROPAD (WFILE, REGNO, 2) ; 

RITELN (WFILE, ' GLOEAL VAR' ) ; 

F A 0XR2G 1 <>- 1 THEN (* IF USED *) 
BEGIN 

WRITS (WFILE, ' * ; 32) ; 

ZEROPAD (WFILE, AUXREG 1 - 2) ; 

WRI TEL N (WFILE, ' AUXREG V) 
END; 

F AUXREG20-1 THEN (* IF USED *) 
BEGIN 

WRITE (WFILE, • * : 3 2) ; 

ZEROPAD (WFILE, AUXREG2 , 2) : 
WRITSLN WFILE, ’ AUXREG 2’) 
END 



FNQID ; 


END 

END; 

WRIT ELN (WFILE, ' 


QUICK FN 1 ) ; 


FNLID : 


EEGIN 

ZEROPAD ( 


'WFILE, 


FNLRSG , 2); 

' LONG FN ' ) 




WRITE LN j 


[WFILE, 


FNPID ; 


END; 

EEGIN 

ZEROPAD ( 


'WFILE, 


FNREGNO , 2) : 

' PARAMETER FN • ) 




WRITE LN ( 


[WFILE, 


END 

END; (* CASE *) 

LCCK := LOCKS. SLOT 
UNTIL LOCK = NIL 
END; 

WRITLN (WFILE, MSGF, 12) 




(* END SYMTBL MSG 


END; 






(* S YMTBLDUKP 



(****************************************************#*****) 
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(*-9 0 

* SEARCH IS A SPECIAI PURPOSE DEBUGGING TOOL; 

(* THIS PROCEDURE FOLLOWS AND PRINTS THE CONTENTS OF ALL 

* POINTERS IN THE CODE DATA STRUCTURE (LINE AND CODEPTR) 
j* THIS ROUTINE CAN EE TOGGLED USING OPTION NUMBER 6. 

PROCEDURE SEARCH (VAR WFILE ; TEXT; L ST ART : LINEPTR) ; 

VAR LESEAECH : LINEPTR; CODE : CODEPTR; 

EEGIN 

WSITLN (WFILE, MSGF , 13); (* HEADER MSG *) 

LPSEAECH ;= LSTART; 

REPEAT 

WRITE (WFILE, • LIN UM = * ) • 

ZEROEAD (WFILE ^ LESE ARC Ha). LINO, 5); (* WBASIC LINE NO *) 

WEITELN (WFILE) ; 

COD? := L? S E ARCH a .CPTR ; 

REPEAT (* 11-5 9 CODE ATTACHED TO WBASIC LINE NO *) 

WRITE (WFILE, • ':2); 

ZERCPAD (WFILE, CODPd.ADDR, 3); 

WRITE (WFILE, * ' ;2) ; 

ZERCPAD (WFILE, CO DP a) . KEY, 2) ; 

WRITELN (WFILE); 

CODE := CO DPS . SEQP 

UNTIL (CCD P = LPSEARCHa) . LPTRa).CPTR) OR (CODP = NIL) ; 
LESEAFCH := LPS E ARCHa). LPTR 

UNTIL LPSEARCHa). LINO = MAX8ASLIN ( * MAX3ASLIN IS END *) 
END; (* SEARCH *) 
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tf If 



## ** a*#****##* 

/ £ jjc \ 

(* INITIALIZATION ROUTINE *) 

(* *) 

I#*#******#**#* **##**###*## ****$******:**#*:*******:****:** 

(*-9 1 *) 

(* INITIALIZE SETS UP ALL FILES, DATA STRUCTURES, SETS, *) 

(* AND INITIAL VARIABLE VALUES REQUIRED TO BEGIN THE * 

(* READING AND COMPILATION OF THE WBASIC SOURCE CODE, AND * 
(* THE OUTEUT OF THE TRANSLATED TI-59 CODE AND LISTINGS. *) 
(* *) 

EROCECURE INITIALIZE; 

VAR I : INTEGER; 



(* *) 

f* LOADRW READS THE RWTBLF FILE (RESERVED WORD TABLE) AND *) 
(* LCADS THE RESERVED WORD CHAR/INDEX ARRAYS; NOTE THAT *) 
(* THE ARRAYS ARE STATIC FIXED AND ARE DEFINED BY THE *> 
(* SYSTEM PARAMETERS RWCHARCT, RWWORDCT, RWLENGCT IN THE * 
(* CONSTANT DECLARATION BLOCK AT THE FRONT OF THE PROGRAM *) 
/* *\ 



EROCECURE LCADRW (VAR RWT3LE ; TEXT) ; 

VAR CHINX, STARTCHINX : 0.. RWCHARCT ♦ 1; 
WINX : 0.. RWWORDCT + 1; 

LINX, LENG : 0.. RWLENGCT + 1; 

CH : CHAR; 



BEGIN 

LINX := 0; 

CHINX := 1; 

WHILE NCT EOF (RWTBLE) DO 
EEGIN 

STARTCHINX := CHINX; 

READ (RWTELF, WINX); (* READ 
READ RWTBLF, CH, CH) ; (* READ 

BWWCRD (. WINX. ) := CHINX; 

REPEAT (* READ CHARS OF ONE 

READ (RWT3LF, RWCHA R (. CHI NX. 
CHINX := CHINX + 1 



* IN IT LENGTH INDEX *) 

* IN IT CHAR INDEX *) 



WORD INDEX (INTEGER) *) 
OFF 2 ELANK SPACES *) 

WORD INTO CHAR ARRAY *) 
) ) ; 



UNTIL SOLN (RWTELF) ; 

REACIN (RWTBLF) ; 

LENG := CHINX - STARTCHINX 
IF LENG > LINX THEN 
EEGIN 

LINX : = LENG; 

RWLENG (. LINX.) := WINX 
END 

END; 

RWCHAR (.RWCHARCT + 1. 

RWWCED (. RWWORDCT + 1. 

RWLENG (.RWLENGCT + 1. 

END; 



(* NEXT WORD *) 

* IF LENGTH CHANGE, THEN * 

* INDEX ITS LOCATION IN * 

* THE LENGTH ARRAY. * 



BLANK: (* SET DELIMITERS FOR 
RWCHARCT + 1; (* ARRAYS AND 
RWWORDCT + 1 (* INDICES 

(* LCADRW 



(* 



-*) 
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f* LOADLIE BEADS PREDEFINED FUNCTION LIBRARIES IN 3IFNLF *j 
j* AND BIFNQF FILES; MAKES APPROPRIATE SYM TBL ENTRIES. *| 



PROCEDURE LOADLIB (VAR LIEFILE ; TEXT; FNTYPE : IDTYP; 

SEQLEN ; INTEGER); 

VAR IDSICT : SLCTPTE; 

I ; INTEGER; 



EEGIN 

READLN (LIEFILE); READLN 
WHILE NCT EOF (LI 3 FILE) DO 



(LIEFILE) ; (* SKI? HEAD LINES *) 



BEGIN 

ACCINX ;= 0; 

REPEAT 

ACCINX ;= ACCINX + 1; 

READ (LI3FILE, ACCU M (. ACCINX .)) ; 



(* INI 
(* REA 



T ACCOM INCX *) 
AC NAME OF FN *) 



UNTIL ACCUM(. ACCINX. ) 
FCE I := ACCINX TO MA 



= BLANK; (* TO 1ST BLANK *) 
XTOKLSN DO (* FILL REST BLANK *) 



END; 



ACCUM ( . I - ) := BLANK 

ACCINX ;= ACCINX - 1; 

IDSIOT := GETS LOT ( ACC 
IDSLCT3.TYP := FNTYPE 
FOB I := 1 TO SEQLEN 

CASE FNTYPE CF 

FNQID : READ (LIB FILE, IDS LOT 1 . F NQ ( .1 . ) ) ; 
FNLID : BEGIN 

IDSL0T3 
BEAD (L 
END 

END; (* CASE *) 

READLN (LIEFILE) 

END 



(* SET INDEX BACK TO NAME LEN *) 
UM, ACCINX) ; (* ENTER IN SYMTEL *) 

; (* SET IDENT TYPE * 

DO (* READ KEY CODES * 



. FNLLINK := NIL; 

IBFILE. IDSL0T3. FNL(. I. ) ) 



(* SKIP TO NEXT IN *) 
(* L0ADLI3 *) 



(* *) 

! $_ g i _q 3 

* LC ADCTEXT READS THE CTEXTF FILE AND LOADS THE DATA *) 

* STRUCTURE WHICH WILL PROVIDE THE TRANSLATIONS OF TI-59 * 
* KEY CCDES DURING THE FINAL CODE DUMP. *j 

(* *) 



PROCEDURE LCADCTEXT; 

VAR I ; INTEGER: 

J, K : 1 . . TEXT iEN + 1 ; 
CH : CHAR; 



BEGIN 

READLN (CTEXTF); READLN (CTEXTF); 

WHILE NCI EOF (CTEXTF) DO 
EEGIN 

READ (CTEXTF, I , CTSXT (. I. ) . UNIT) ; 

READ (CTEXTF, CH, CH) ; (* SKIP TWO BLANKS *) 

WHILE NOT EOLN (CTEXTF) DO 
EEGIN 

READ (CTEXTF, CTE XT ( .1 .)• CODECHAR (. J. )) ; 

J := J + 1 
END; 

FOB K := J TO TEXT LEN DO 

CTEXT(. I.) . CCDECHAR (.K.) := BLANK; 

READLN (CTEXTF) ; 

END 



END ; 

<*-- 
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(* LOADCTEXT *) 
*) 



EEGIN 



(* INITIALIZE MAIN *) 



!*' 

(*■ 



OPEN AIL FILES AND WRITE OUTPOT FILS HEADERS. 



TSRMOU 

RESET 

RESET 

RESET 

RESET 

RESET 

RESET 

RESET 

REWRIT 

REWRIT 

WRITLN 

WRITLN 

WRITLN 



X 4 . 

(EASICF, 
(MSGF, 



A') 



(RWTBLF , 

(LAEELF, 

(CTEXTF , 

( E I F NQ F , 

(El FNLF , 

E (LISTF , 

E (NAMEF, 

(LISTF, , 

OUTFILE, MSGF. 1) 
(NAMEF, MSGF, 8) 



A* 

A' 

A' 



(CUTFILE) : 

' NAME=BASICF. MBA SIC . 

NABE=M3GF .PASCAL. A ' 

NAME=RWTB LF. PASCAL. 

NA ME=L ABE LF. PASCAL. 

NAHE=CTEXTF. PASCAL. 

N AME=BIFN QF. PASCAL. A' 

N A ME=3IFN LF . PASCAL. A' 

• NAME= LISTF. WEASIC. A' 

• N AM E= NAMEF. WEASIC. A' 

MSGF, 2) : (* HEADER MSG TO LISTF 

* TERMINAL INVOKE MSG 

♦ HEADER MSG TO NAMEF 



<*- 



INITIALIZE OPTION TOGGLES 



LINK59 

PC100 

OPTPAR 

OFTNOP 

CCDUMP 

SYDUMP 

DS BUMP 

TOKCUI 

TOKLIS 



FALSE; 
TRUE ; 
TR UE ; 
TRUE; 
TRUE ; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 



OPTION 0 
OPTION 1 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 



OPTION 8 



INITIALIZE RESERVED WORD ARRAY INDEXES. 



LO ADR W (RWTBLF); 



* INITIALIZE CHARACTER SETS. 

* 



LETTERS ;= 

DIGITS := 

ALFANUM := L 

SIGNS := 

DOUELE1 := 

DOUELE2 := 

SPECIALS := 



+ 

+ 



(.' J' . . 'S' .) 

(. ' j' . . ' .) 

. , 0 , .. , 9'.)* 

ETTEFS > Dx GITS; 



• A' 
•a ’ 



•I' 
•i ' 



+ 

♦ 






s • 

s ' 



'Z 

* Z ' 



■' '.I ; 



SUBERRCR := 
CRITICAL := 
TRAILTCKS := 
BINCPTCKS ;= 

RELCPTCKS := 

NUMERICKEY := 

SIGNTCKS := 
BEGIN EXPRTOK 



, • 

• = • 

!•<» 

iii i _ \ + / 

. ENDLIN. ) + 

• CMTCKSXC. ) 
.PLUSTOK.) 
.DIVICK . 
.EQUALTOK. ) 



) + (•'-'•] 


• 

f 




+ (. ' >' . 


i + \ 




+ (. ’=’ . 


i + | 




♦ 


i + | 




+ . • r . 


i + j 




+ (.'>•. 


+ i 


. SXCLA 



+ 

+ 



S'.commL 



) 



1* ( 



• *’ 



( . ENDFIL .’) 

(. ENDLINTOK.') 



(.MI 

U ? 



MINUSTOK . 
XPTOK 



(-*&•-) l 

' * (. SNDFILTOK.) 

+ (.MULTOK.) 




(. NOTE QTOK . ) + (. GT 

+ (. LITOK .) + (.GT 

" “ ‘ + (. K MEG. ) 



♦ (.K EE 

^ <_9.) ; - 

. PXUSTCK . ) + (.MINUSTOK.); 

:= SIGNTOKS ♦ (.IDENTOK.) 



EQTCK. ) 
TOK.) ; 



(. OPARENTOK. ) 
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* *#*#*###* * * * # * 



it it it it it it it it it it it it it it it *-#* it it it 



INITIALIZE HASH TAELE AND REGISTER COUNT. 



FOR I : = 0 TO HASHE ASE DO 
EUCKET (.1. ) := NIL; 

NEXTREG := STARTREG; 



INITIALIZE ARRAY HOLDING OUTPUT TEXT OF TI-59 CODE. 



LOAECTEXT ; 



INITIALIZE 3UILT-IN FUNCTION 


LIBRARY. 




LOAELIE ( EIFNQ 


F, FNCID, F NOLEN 


) ; 




LOACLIE ( BIFNL 


F f FNIID, FNLLEN 


) ; 




ENTER 'PI' = 


3. 14 1592653 59 IN 


SYMBOL TABLE. 




ACCOM (.1.) : = 
ACCINX ;= 2; 
FOR I := 3 TO 


'P' ; ACCUM (.2.) 


. - I r t • 

. — •*- t 




HAXTCKLEN DC 






ACCUM (. I.) : 


= BLANK; 






IDSLOT := GETSLOT (ACCUM, ACCINX) ; 




IDSLCT3) . T YF 


:= V ARID ; 






ID S LOTS . REGNO 


:= -314; 


(* SPECIAL REGNO 


FOR 'PI’ 


INITIALIZE LABEL STACK (ARRAY 


OF INTEGER KEY 


CODES) . 



REAEIN (LAEELF): (* SKI? HEAD LINE 

FOR I := 1 TO LBLSASE DO 

READ (LABELF, CLAEEL (.1 .) ) ; 

LBLCT := 1; 



INITIALIZE RESERVED REGISTER SET. 



REAELN (LAEELF); R EAELN (LABELF) ; READLN (LABELF); 
RESERVECT ; = 0 * 

RESEFVE REG : = ’(.. ); (* INITIALIZE TO EMPTY SET 

WHILE NtT EOF (LA 3 £ IF) DO 
EEGIN 

WHILE NOT EOLN (LABELF) DO 
EEGIN 

READ (LABELF I) * 

RESERVE REG := RESERVE REG + (.1.); (* MAKE SET 

RESERVECT : = RESE RVECT”+ 1 (* COUNT MEMBERS 

END; 

REAELN (LA3ELF) 

END; 



INITIALIZE FNP ACTIVATION STACK AND FNL USE LIST. 



FN STACKCT := 0; 
FNSTACK ;= NIL; 
FNLLIST := NIL; 
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it it it it it tt it it it it it it it * it it it Hitit # it it it it * 



INITIALIZE FIRST CALL TO SCAN. 



LINEUF ( 

LINEUF ( 

TOKNUM 

LNEINX 

ERRCRCT 

WARNCT 

FLAGCMT 

LINUM 

LLINUM 

CLINUM 



0. ) := BLANK; 

1. ) := ENDLIN; 

: ENDUNTCK; 

0; 

0 ; 

0 ; 

FALSE; 

0 ; 

: 

0 ; 



* INITIALIZE LINKED DATA STRUCTURE FOR TI-59 CODE. 

f* — — - — — — 



(LINUM) 
(* A 



FIRSTLF : = GETNEWHCR 
LPCUR ;= FIRSTLP; 
LASTLP := FIRSTLP; 

ENDCP := FIRSTL P2.CPTR; 
BEGINCE := ENDCP; 

CPC UR ;= ENDCP; 

SETLINE (LPCUR, L?) 

GENKEY (K LB L) ; 

GENKEY (NIWLBL); 

BEGINCP := B EGINCP3 . SEQP ; 



NCH 



i 



* SET A COM NON REF NODE 
R ALL MARKER PTRS TO IT 



(* SET UP FOR MAIN PROCEDURE LABEL 

(* MAIN PROCEDURE = L5L A 
(* 3YPASS THE HEADER NODE 



if 

<*- 



INITIALIZE LOCP/BBANCH STACKS, 



IFSTACK 


• = 


NIL; 


ENDIFSTACK 


; = 


NIL; 


LOOPSIACK 


Z = 


NIL ; 


ENDLOCPST ACK 


Z — 


NIL; 


FORSTACK 


• = 


NIL ; 


NEXTSTACK 


z — 


NIL; 



If 

<*- 



INITIALIZE READ/DATA STATEMENT INDEXES/FLAGS. 



RSADIX := 1; 

DA TAT'/ •= 1* 

INDEXERROR := FALSE; 

FIRSTREAE := TRUE 

END; (* INITIALIZE * 
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tt -i* tt * # ** 4* 4fr 4 # # 4* 4* 



J***4c4c*44c4‘4‘4c4<4c4c4c4e4c4c4c*4c4c4c4c4c4c4‘4c4c4c4c4c4c4c4c4c4:4s4c4c4c4c4c4c*4c4c4c4c4c4c4c4c*4c4c4c4c 
/* 4c 

(* EAX59; MAIN DRIVER * 

(* 4c 

{***$$***$$ **4c a*#*#*#**#***# #*##**:*#*££:***#*** *##*£*#*##*### 

BEGIN (* EAX59 MAIN *) 

INITIALIZE; 

REPEAT (* UNTIL TCKNUM 



SCAN (TCKNUM): 

IF EE rO ECT = 0 TEEN 
BEGIN 

SETLINE (LPCUR, 
CASE TOKNUM CE 




= ENDFILTOK *) 

SCAN FIRST WORD 0? NEW LINE 
PARSING IS DICONTINUSD AFTER 
FIRST FATAL ERROR ENCOUNTERED 
(* NEW W BASIC LINE NO & LINE 
RECURSIVE DESCENT PARSE PRCC 



( * *) 

* KEYWORDS MARKED IN RIGHT CMT COLUMN BY ASTERISKS MUST * 

* ALWAYS RESULT IN A PARSE ERROR IF USED AS A COMMAND * 

* (IE. 1ST WORD ON A LINS) REGARDLESS OF IMPLEMENTATION: * 

* ** IMPLEMENTED IN THIS SU3SET * 

* *** NOT IMPEMENTED IN THIS SUBSET * 

* * 



ERRORTOK 
CMTOKSXC 
2 , 3 , 4 , 5.6 
7 .8, 9, 10, 1 1 
1*,13, 14 
15,16, 17, 18 



BEGIN 
PR E M ; 
PERROR 
PER ROR 
BEG IN 
PER ROR 



:ND; 



END 



SCAN ERROR 
EXCLAM 

1-CHAR SYMBOLS 

1- CHAR SYMBOLS 
SCAN ERROR 

2- CHAR SYMBOLS 



19 


: PIF: 




r 4c 


IF 


20 


: PERROR ; 




4c 


TO ** 


2 1 


: PERROR; 




4c 


OR *** 


22 


• 

• 


PSUBERROR ; i 


' 4c 


CN 


23 


: PLET: 




1 4c 


LET 


CMTOKREM : FREM; 




4c 


REM 


25 


: PFOR; 




4c 


FOP. 


26 


: PEND; 




1 4c 


END 


27 


: PDEF; 




' 4c 


DSF 


28 


: PERROR; 




* 4c 


JJOT’ * * 


29 


; 


PSUBERROR ; 


'4c 


DIM 


30 


: PERROR ; 




'4c 


AND *** 


3 1 


,3 2 : 


PSUBERROR; 


' 4c 




33 


: PERROR; 




1 4c 


THEN ** 


34 


: PELSE; 




1 4c 


ELSE 


35 


: PGOTO ; 




* 4c 


GOTO 


36 


: ELOOP; 




4c 


LOOP 


37 


: PNEXT; 




1 4c 


NEXT 


38 


: PQUIT ; 




1 4c 


QUIT 


39 


: PSTOP; 




1 4c 


STOP 


40 


: PDATA; 




' 4c 


DATA 


4 1 


: PREAD; 




'4c 


READ 


42 


: PERROR ; 




'4c 


STEP ** 


43 


,44,45 


PSUBERROR; < 


'4c 




46 


: PEN DIF; 




1 4c 


EN DIF 


47 


: P FN EN D ; 




4c 


FNSND 


48 


: PGOSUB ; 




'4c 


GOSUB 


49 


: FIN PUT; 




4c 


INPUT 


50 


: PUNTIL; 




'4c 


UNTIL 


5 1 


: FWHILE ; 




'4c 


WHILE 


52 


: PPA USE ; 




'4c 


PAUSE 


53 


: PPRINT ; 




4c 


PRINT 


54 


,55,56,57,58 : 


PSUBERROR; i 


' 4c 





:i 

* j 

* 

4c ' 
*1 

4« 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

* 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

*) 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

*) 
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59 : PELSEI F ; 

60 : PRETURN; 

61 : EOPTION; 

62,63,64,65.66 : PSUBERROR ; 

67 : PENDLOCP; 

6 8 : PRESTORE; 

69,70,71,72 : PSUBERROR; 



IDENTOK : 
NUMBE RTOK : 
ENDLINTOK: 
ENDFILTOK : 



PNOLET 

PSEROR 

GENKEY 

GENKEY 



END 

END 



(* CASE *) 






NOP) 

NOP) 



ELS EIF 
RETURN 
OPTION 

ENDL30P 

RESTORE 



NO LET 
NUMERIC 
BLANK LN 
END FILE 



*1 

* 

*) 

*] 

* I 

* 



UNTIL TCKNUM = E NDFILTCK; 



GETFNLS ; 
ENDCP®. SEQP 
LPCURa). IPTR 



= NEWCCDE (- 1) 



{* INSERT LONG FN BODIES 
(* CLOSE CODE SEQUENCE 



:= GET NZWHDR (MAXBASLIN) ; (*"cLOSE LINE S EQ 



IF CP TP AR T 
OSQPAREN 
I? CPTNCP t: 
CSQNCP 
RESCLVE ADD 



REPORT (LIS 
REPORT OUT 
IF CODUMP THEN 

CCDECUMP (LISTF, 
IF LINK59 THEN 
LINK INTERFACE; 



^EEGINCP) ; 


(* 

>* 


EGINCP) ; 




N 




EGINCP) ; 


(* 


(EEGINCP) ; 


(* 


{.£) ; 


<* 



EEGINC P) 



INSERT LABELS FOR SER *1 

OPTION 2 * 

OPTIMIZE PARENTHESES * 
OPTION 3 * 

OPTIMIZE (OUT) MOP'S *) 
OVERLAY ABSOLUTE AD DP. *) 

E RROR/REG/L 3L SUMMARY *) 

OPTION 4 * 

WRITS TRANSLATED CODE * 
CREATE SCRATCH FILE * 
FOR LINKER INTERFACE *) 



i: 

(* 

<* 



ST IN THE * 
* 

*) 

*) 



DEEUGGING TOOL: DUMPS EACH SLOT 

SYMBOL TABLE TO 
IF SYEUKP THEN (* 

SYMTELDUMP (LISTF, BUCKET) ; 



OF EACH BUCK: 
NAME FILE. 
OPTION 5 



^ _ _ — — — — — — — — — — \ 

(* DEEUGGING TOOL: DUMPS ENTIRE CODE DATA STRUCTURE *) 

(* INCLUDING LINE AND CODE NODES. * 1 

IF CSDUMP THEN (* OPTION 6 *) 

SEARCH (LISTF, FIRSTLP) 

( * *) 



END; (* E AX 59 *) 

1 #*#*:$$**$$:*:$:*:** # 3 $ * * * * jc * ## ) 
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APPENDIX D 

RWTBLF FILE--0RD2RED RESERVED WORDS 



1 


1 


2 


= 


£ 


+ 


4 


- 


e; 

-j 


* 


6 


/ 


7 


( 

) 


8 


9 


> 


1 0 


< 


1 1 


f 


1 2 


« 


1 3 


4 


i 4 


2 


15 


* z 


16 


O 


1 7 


> = 


1 8 


< = 


19 


IE 


20 


TC 


2 1 


OR 


22 


CN 


22 


LET 


24 


5 EM 


25 


ECR 


26 


END 


27 


CEF 


28 


NOT 


29 


DIM 


30 


AND 


3 1 


MAT 


32 


USE 


33 


TEEN 


34 


ELSE 


35 


GOTO 


36 


ICC E 


37 


NEXT 

QUIT 


38 


39 


STOP 


40 


DATA 


4 1 


READ 


42 


STEF 


4 2 


LCCK 


44 


CFEN 


45 


SCFT 


46 


ENDIF 


47 


ENENO 


48 


GCSUB 


49 


INPUT 


50 


UNTIL 


5 1 


WHILE 


52 


FAUSE 


Q -3 


FEINT 


54 


CHAIN 


55 


ADMIT 


56 


CLOSE 


57 


GUESS 


53 


SLEEP 


59 


ELSEIF 
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60 

6 1 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 



RETURN 

CETICN 

LIN PUT 

E EMCVE 

RENAME 

RESUME 

UNLOCK 

ENDLCOP 

RESICRE 

SCRATCH 

TAG SORT 

ENDGUESS 

RANDOMIZE 



184 



APPENDIX E 

LABEL? FILE — TI-59 LABELS/RES ESVED REGISTERS 



KEY CODES FCR TI-59 IAEELS : 

11 12 13 14 15 16 17 18 19 10 

20 22 23 24 25 27 28 29 30 32 

33 34 35 36 37 3 6 39 42 43 44 

45 U7 48 49 50 52 53 54 55 57 

58 59 60 61 65 66 67 68 69 70 

71 75 76 77 78 79 80 81 85 86 

87 88 89 90 91 93 94 95 96 97 

98 9 9 

REGISTERS RESERVED BY USER: 

00 01 02 03 04 05 06 C7 08 C9 10 
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APPENDIX F 

EIFNQF/BIFNLF FILES — BUILT-IN FUNCTIONS 



BUILT 


-IN 


"QUICK 


■ •• 




ABS 


50 


68 


68 


6 


8 


ACOS 


27 


39 


68 


6 


8 


ASIN 


27 


38 


68 


6 


8 


ATN 


27 


30 


68 


6 


8 


COS 


39 


68 


68 


6 


8 


COT 


30 


35 


63 


6 


8 


CSC 


38 


35 


63 


6 


8 


EXP 


22 


23 


68 


6 


8 


FP 


27 


59 


68 


6 


8 


IP 


59 


68 


68 


6 


8 


LOG 


23 


68 


63 


6 


8 


LOG 10 


28 


68 


68 


6 


8 


SEC 


39 


35 


68 


6 


8 


SIN 


38 


68 


68 


6 


8 


SQR 


34 


68 


68 


6 


8 


TAN 


30 


68 


68 


6 


8 



BUILT-IN "LONG " FUNCTION NAMES AND 11-59 KEY CODE SEQUENCES 
END 36 15 10 4 3 1 0 36 15 15 36 15 7 1 83 68 68 68 
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59 

0 

0 

0 

0 

0 

0 

0 

C 

0 

0 

0 

c 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 



APPENDIX G 

CIEXTF FILE— TI-59 KEYCODE TRANSLATIONS 



KEY CODE TEXT 



UNRESOLVED ADCR $$ 35 $ 
UNFILLED CODE $$$$$$ 
0 
1 
2 

3 

4 

5 

6 
7 
3 
9 

2ND E* 

A 

E 

C 

c 

E 



2ND 


A * 


2ND 


E • 


2NL 


C* 


2ND 


D* 


2ND 


CLR 


2ND 


$$3$ 


INV 




LNX 




CE 




CLR 




2ND 


$$S$ 


2ND 


INV 


2 N E 


LCG 


2ND 


CP 


2ND 


TAN 


LBN 


(DE3 


X < = >T 


X* *2 




SCHT (X) 


1/X 




2ND 


PGM 


2ND 


P=>R 


2ND 


SIN 


2ND 


COS 


2 N E 


IND 


c j 


$$$$ 


SIC 




RCL 




SUM 




Y**X 


INS 


$$$$ 


2NE 


CMS 


2ND 


EXC 


2ND 


PRD 


1 X| 




ESI 


$$$$ 


EE 





2RROR $$$$S 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

33 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

So 

97 

98 

99 



0 

0 

0 

0 

0 

0 

2 

1 

1 

1 

0 

0 

2 

0 

1 

0 

2 

1 

1 

1 

0 

0 

2 

0 

0 

0 

0 

0 

1 

1 

0 

1 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

0 

0 



DEL £»$$ ERROR 33333 

2 ME ENG 

2ND FIX 

2ND I NT 

2ND DEG 

QTf Q 

2ND PGI1 2ND IND 
2ND EXC 2ND IND 
2ND PRD 2ND IND 
* 

2ND PAUSE 
2ND X=T 
2ND NOP 
2ND CP 
2ND RAD 
SER 

SIC 2ND IND 
RCL 2ND IND 
SUM 2ND IND 

2ND LEL 

2ND X>=T 

2ND SUMMATION 

X - E A H 

2ND GRAD 

RSI 

3323 VOID CODE $$$$$ 
GIC 2ND IND 
2ND CP 2ND IND 

+ 

2ND STFLG 
2ND IFF LG 
2ND D.MS 
2NE PI 
2ND LIST 
R/S 

INV S3R 

• 

+ /- 

2ND WRITE 
2ND CSZ 
2ND ADV 
2ND PRT 
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APPENDIX H 



MSG? FILE — CROSS-COMPILER OUTPUT MESSAGES 



$ IS THE ESCAPE CH A3 (MSG DELIMITER) FOR THIS MESSAGE FILE. 

11 3$ $$$$$3$$$ $11$ $$$3$$$$$ $$3$S$$$$$$$$3$3$3$$33$333S33$3$$ 

INVOKING W BASIC CROSS-COMPILER FOR TI-59 PC 
EAX59 VERSION 1.0 

$1 $$3$$$$3$$$$$$$$S$33$$$$ $3$ $3$ $33133 $$333$ 33$ $3 3 33$ 3 3$ 33 I 

12 $$$$3333$$$ 3$ 3$ $3 $33353$ 3$ 333$ 3333333535 $3 33 3333$ S3 3 3$ 3$ 3 



WEASIC PROGRAM LISTING 



$2 3$ 333 $$$$$$$ $3$ $3 $31$ $$$$$$ 333333 1 $3 335 $33 3$ 13 3 $11$ $13 IIS 
$3 $$ $33 $3$ $3$ 3 $3$ $3 $333 $33 3333 333333 33333333 $33$ $333$ 3 $3 $33 



CCMPILA TIC N SUMMARY 



$3 SI $3 $3 3 $31$ 3 $$$ II 11333$ 3 $3$ $3$ $33 3 3 3333 313 SI 133$ III $$$$$$ 
34 $33$ 3 $$$ $3$ 3 33$ 3$ $333 333 3333 S33333 3$ 33$ $33 3333$ 33333 $3 $3$ 

COMPILATION TERMINATES 

$4 *$$$$$ $$$$$$$$$ $3333$ $33 $3$ 3333333 $3 $33$ $3 33 3$ 3 $333 $33 333 
$5 3 1 $3$ 33$ 333 3 3 $3 3 33 333 33$ 333 3 33 333$ 33 333333 33333 $33$ 333 333 



TI-59 COEE TRANSLATED FROM WEASIC 
(UNS EGMENTED) 



ACER CODE 

35 1 3 $333 3$ 33$ 13 333 3 3 $33 33$ 3$$$3$$33$$3$S3$$S$S$$3$$33$3$33$ 

36 $$$$$$33S$$$$S$$$333333S$3$$333$3$S3$$33$3$$$S3$$$S3SS$$$ 

0 BEGIN TI-59 CODE. 

$6 3 3 $3 $3 $$$$$$ 33333 3333 $33 3$ 3 3 33333$ 3333333$ 3313 3 3 33$ $33 $33 
$7 $3 3$ 3 3 3$ $33$ 33$ 33 $333 $3$ $3$ $333333 33 $33 $33 33333 333$ $33 $33 
-1 END TI-59 CODE. 

37 33333333 113$ 313 IS I 33313$ III $$$$$$$$ 5$$$$$$ $133$ $ $33 $3$ $13 

S3 $$$$$$$$%$$$ 



TI-59 REGISTER TO NAME MAPPING 



REG# BASIC NAME 

$8 3$ 13$ 33$$$$ 3 $$$$$$$$$$$$ $3$ $33 $33333 3$3 31$ $33$ $ $33$ 3 3$ $3$ 
$9 $33$ 3 $$$ 3 3$ 3 3 3$ $3$ 33333$ 333 $ 3$ $3333$ 333$ 3$ I$$$ 5313$ 33$ 3$ 3 



INPUT DATA TO READ MAPPING 



DATA REG NAME 
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39 $$$S$$S$$ $$$$$$ $$$$$$$$$ 333 33 33$ 33 33 $33 $3$ 3333$ i 333 3 33333 
$10 $$$£$$$£$$$$$$$$$$$$$$$ 33$$$333333$$3$3333$333S3333333$3 



BAX59 SYMEOL TABLE DU 11? 



EUCKE1 



CONTENTS 



REG 



TY? 



310 
$1 1 



3: 
* ■ 



ill 



:5i| 

;$3$ 



13: 



5$: 

53: 



;$$: 

;$$: 



1 3 3 33 3 j 
;$33$$: 



>$$$$$ 3$: 
5333333$: 



. 5 : 

;$: 



: J 
5 3 •£ 



if 



$11 $$$ $$$$$$$ $$$$$$ $$$$$$$ $$$$$$ $333$ ?$$$$$3$$$$$S 33$$$$ 33$ 
$12 $$$$$$$ $3$ $$$$ $$$3333$ $$$3$$$$$$$ $3333$$$ $$$$ 3$ $3$ $$$ $33 



$12 $$$$$$$ 333 3 33$ 3$ $333333 333333 333$ 3 5 333333 333$ 33 333 3 33 333 
$13 $ 33 $$$$$$$ $ 333 $ 3 $$$$$$$ $ 3 $ $ 3 $ $ 33 $ 3 $ 333 $ $ 3 $$$$$$ 333 33$ 33 3 

_TI-59 CODE _D A TA_ STRUCTURE 

$13 $3$ 3 333 $3$ 3$ 3$ $3$ $$$$$$ 33$ $3$$$$$ 3 S $33333 3$ $3$ $3 33 $$S 33$ 
$14 $333$$ 3333 $333 3$ 3333 $3$ $3$ $3$ $33333 333 33$ 33 3$ 3 $333 3 33 333 

EEFORE TEE FIRST FATAL ERROR, THESE STATS HERE COMPUTED: 

$14 $333 3 33 3333 $3$ $3 $33$ $3$ $33$ $3333 $33 3 S3 $3$ 3$ 3$ 3 $333 $33 333 
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' 








APPENDIX I 



LINKER SOURCE CODE 



/#* 

(* 

(* 

(* 

il 

* 

* 

* 

* 

(* 

* 

* 

* 

<♦ 

* 

* 

* 

* 

** 



************************ 
PURPOSE: THIS PROGRAM TA 
II SEGMENTS THE 
INTO THE TI-59 
CODE LISTINGS A 
COMMENT: EROGRA 

LIMIT 
ALGORI 
COMMENT: FILSDE 
CON SEQ 
IN THE 
FOLLOW 



♦ ********* 



******************************** 
KES AS INPUT A TI-59 PROGRAM. * 
PROGRAM SO IHAT IT WILL FIT * 
CALCULATOR. INSTRUCTIONS AND * 
RE PROVIDED AS OUTPUT. * 

a MAI LOOP INFINITELY IF SMALL;* 
IS USED 3ECAUSE OF DIVIDE * 

THM . * 

FS WERE USED FOR THIS PROGRAM *J 
UENTLY THEY WERE NOT DEFINED * 
PROGRAM. SPECIFIC FILEDEFS *) 
: SCRATCH — "SCRATCH PASCAL" *) 
PASSED FROM COMPILER *' 

OUTFILS — "ANY DESIRED NAME" * 
YOUR OUTPUT FILS * 

TEMPFILE — "ANY DESIRED NAME" * 

A TEMPORARY SCRATCH PAD * 
MESSAGEFILE--MESSAGEFILE FILE* 
LINKER'S MESSAGES * 

fc*#*#:*:********#*** *********:***** 



PROGRAM TSCRIVER (INPCT, OUTPUT) ; 



(***#***$*: $ If. $ #*** ** * 

(* DECLARATIONS: 
^*************** ** ********* 



********************************) 

*) 

********** ******** 3c* * * * * * * * * ** ** j 



i 



10 ; 



ONST 

FJUMFCONST 
SERCCNST 
S ERCC N'T CONST = 

STO = 42; 

LEL = 76; 
RCLINE = 73 ; 
STOIND = 72 ; 
CP = 69; 
DECIMAL = 93; 
B S = 91; 

CE = 24; 



DISPLAY REG ST ORE = 00 



) 



* NUM STEPS FOR F JUMP CODE *) 

* NUM STEPS FOR S"5R ERK CCDEM 

* NUM STEPS FOR S3R 3RK RTN *) 

(* TI59 KEYCODES *) 



RTNEEGNUM 

MANRTNREG 



= 6; 
= 08; 



<* 



?1UM 



NCNE = 10 1; 

ASTER = 102; 

Y^S = 10 3* 

MCD PROMPTS = 100; 
R TNRGTOP = 104; 
CCDENUM = 0: 
SIOINRG = 105; 
FGHP ARTIS = 106; 
FARINUMIS = 107; 
MCDN = 108; 

CARD 1 = 10 9; 

CARD2 = 110; 



(* S 



(* END KEYCODES *) 

(* TEMP STORE OF THE DISPLAY * 
BER OF MANUAL RETURN REGISTERS * 
(* MANUAL SER RETURN REGISTER * 

(* MESSAGE NOMS*) 
EE MESSAGEFILS FOR TRANSLATION *) 



19 1 



SIDE 1 = 111 
SIDE2 = 112 
EAXINSTR = 
SPECIFICS = 
ENDLEL 
F AILINSTR = 
UNSEGCCELBL 



F SE 
PBA8BTN = 
PFWDJ 
PSERINV = 
REGMAF 



81 
82 
83 



(*■ 

TYPE 

(*-- 



CATAREAE = 4; 
RGCT = 1 : 

AIPHAIBL = 99; 



(* END MESSAGE NUMS 



"♦) 



(*' 



LABELS = PACKED ARRAY (.1 .. 
TYPELABELS = ARRAY (.0..99.) 



15.) OF CHAR; 
OF LABELS; 



'(* TI59 KEYS 
<* THIS RECORD IS EUILT_CODE 



-*\ 

*) 



CODEFTR = SCODERCE; 

CCEERCD = RECORD 

AA DD R : INTEG ER; 
MEMN UM : INT EGER ; 
RADDF ;INTEG ER; 
KEY; INTEGER ; 
JMP: CCDEPTR ; 

SEQ ; CCDEPTR ; 
END; 



(* SHOULD HAVE MADE A VAEI 



-i{ 



INSTR SET = SET CF 0 



99 



(* RANGE INSTRUCTION SET 



NCDE = (TABLE, S B5PTR , SB RBR EAK , FWD J UMP , ME MOD ULE , COD E) 
TELPTH = a)NODES; 

NODES = RECORD 

CASE TAG; NODE OF 

TABLE : (N EST : INTEGER ; 

START ADDR:INTEGER; 

STOP IDDR: INTEGER; 

LENGTH; INTEGER ; 

INCLUDED: BOOLEAN ; 

COALESCED; EOOLEAN ; 

S3RL 1ST: TBLPTR ; 

NUM F: INTEGER; 

F JU MPLIST: T3LPTR ; 
TXBLZLIST:T3LPTR) ; 



(* NEXT TABLE *) 
(* NEXT PTR *) 



SBRPTR: (SBR: TBLPTR ; 

FR CM : INTEGER : 

NE XT_SBR : TBLPTR) ; 

MSMODULE: ( MEM NUM:INT EGER; 

OFFSET:INTEGER; 

HIGHOFFSET: INTEGER; 

LOWOFFSST : I NT EGER ; 

RETURNCODE NEE DED : BOOLSA N : 
SEGTBLS: TBLPTR; (* TABLE 

CODELIST: TBLPTR; 

NE XT : TBL PTR) ; 
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CODE: (ADDR ESS:INTEGER; 

ABS ADDS: INTEGER ; 

KEYCODE: INTEGER; 

SEQUENTIALlTBLPTR) ; 

SBRESEAK; ( SBRZ: TBLPTR) ; 

FWD JUMP: (JUMP ADDRFR: INTEGER; 

JUMP'ADDRTO; INTEGER; 

JUMP” ADD RTO 1 : INTEGER ; (^HUNDREDS*] 
JUMP“ADDRT02 ; INTEGER; (*TEN/UNIT*j 
MEM IDDR: INTEGER; (*MEMNUM* 

JUMP INT ADDRTOI : INTEGER ; (*LOCAL* 
JUMP”INIADDRT02; INTEGER; 
NEXI“FJUMP: TBLPTR) ; 

:nd; 

(* SEGMENT TABLE STRUCTURE *) 



‘AH 



CUTFILElTEXT; 
TEMPFILZ;T EXT; 
SCRATCH : TEXT ; 
MESSAGEFILE: TEXT ; 



(* OUTPUT FILE * 
(* NEST DIAGS TEMP FILE * 
INFORMATION FRCM COMPILER FILE* 
(* MESSAGE INPUT FILE * 
* 



PARTITION: REAL; 
REGCCUNT:IN7EGER ; 

GOOD SEGMENT: BOOLEAN; 
SEEINVNEST: INTEGER; 



(* CALCULATOR PARTITION INFO *) 



NUMBANKS.PARI N U K : INTEG ER ; 
LIMIT :INTEGER7 
(* 



(* S3R NEST LEVEL CHECK *) 
(* MEMORY SIZE LIMIT *J 



E OUT CCDE , C URC P : CODEPT R ; 
EUILT'CCDE COUNT : INT EGER; 
HDRPTtt, SEGTBL: TBLPTR ; 



(* CODE TBL VARS*) 
(* TABLE VARS *j 



STE?_0,STE?_1,STEP_2,STEP_3:INSTR_SET; (* INS SET VAR * 



-I 



(*■ 



TILEL.-TYPELAEELS ; 



(* PROGRAM LABELS * 
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* # * # 



* ** * * ** % * * *** *# * *#*:£**##*****:*###**:**###:****:£# #* \ 
(* PROCEDURES AND FUNCTIONS: *) 

I*###*##****##* # *# ♦ * * $:*# ## * rjt##:***##:*##*#*###:* ## ## ) 

fciloh in g Boutin is - are~u I iD _ Ai _ UTiLiTiii~sucH _ Ai - iii nt _ * 

AND SCSATCHFILE AND MESSAGE FILE MANIPULATORS *) 

========================================= =============*f 



(* *) 

* CUM? SEGT3L: DUMPS THE SEGMENT TABLE. USED FOR CEEUG *) 

* ANT IS NOT CALLED IN THIS PROGRAM. *) 

_ __ ___ — _ __ _ ___________ _________ __________ _# j 

PROCEDURE DUMP S EGTEL ( VAR OUTFILE: TEXT ; HDRPTR : TBLPTR ) ; 

VAR F JKFLINK7SBRLINK, SBR, CURTP, SBRTP:TBLPTR; 

BEGIN” 

S3RT F : = HD RPTR ; 

WHILE SERTP <> NIL DO 
BEGIN 

WRITELN (OUTFILE) ; 

WRITELN (OUTFILE) : 

WRITELN (OUT FILE# ' = ========== ===== ========= = ===== ') ; 

WRITE (OUTFILE, • S3 R CODE NUMBER •); 

WRITELN (OUT FILERS 3 RTPal. STOP ADD R : 2) ; 

WRITELN (OUT FILE' = ========= = ==================== •) ; 

CURTP :=SBRTP2.TA3LELIST ; 

WHILE CURTP <> NIL DO 
EEGIN 

WITH CUETPal DO 
BEGIN 

WRITELN (OUTFILE) : 

WRITELN (OUTFILE, 5 NEST' . NEST: 3) ; 

WRITELN (OUTFILE, 'START 5 , START ADDR: 4) ; 
WRITELN (OUTFILE, 'STOP* ,STOP ABDR:4) ; 

WRITELN (OUTFILE, • LENGTH' , LETlGTH: 5) 

END; 

3BR LI NK : =CURTP 3.SERLISI; 

F JMPLINK:=CU3TP3.F JUMPLIST; 

WHILE (SERLINK <> NIL) OR (F JMPLINK <> NIL) DO 
BEGIN 

IF SERLINK <> NIL THEN 
BEGIN 

SER:=S ERLINK3. S3R; 

CASE SBR3.TAG OF 
TABLE: SBR:=S3R; 

SBRBREAK: 

BEGIN 

SBR : = SBRd) . S3RZ; 

WRITELN (OUTFILE , ' *** 3REAK ***»); 
EN D; 

END ; 

WRITE (OUTFILE, ' S3R INVOKE FROM', 
SERLINO. FROM :5 , • TO • 

SBR3. START ADDR : 5 , • *** ’); 

SBRLIN K: =S3RLINK 1 . NEXT SBR; 

END 

ELSE 

WRITE (OUTFILE, • •); 

WRITE (OUTFILE, • *** •); 

IF F JMPLINK <> NIL THEN 
BE73IN 

WRITE (OUTFILE, ’ JUMP FROM ', 

F JMPLINK3 . JUMP ADDRFR : 5 , ' TO ', 
F“JMPLINK3. JUMP - ADDRTO : 5) ; 

F J MPL IHK : =F JMPLINK a)7NE XT FJUMP; 

E ND7 

WRITELN (OUTFILE) ; 

END ; 
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CURIP: =CURT?3. TABLELIST ; 

END; 

SBRTP: =SBRT P2. SBRLIST ; 

END; 

END; (* DUMP SEGTBL TEST EOUTINi 

(* “ 



-U 



■ -T ,, , | | L ^ — — — — — — ^ a a | ^ M M w ^ M ||M _ M|| ^ a ^ ^ 

* DUMP MEMODULENODES: PRINTS OUT THE CONTENTS OF THE * 

* MEEODULENODE LIST FORMED. THIS IS A DEBUGGING * 

* ROUTINE AND IS NOT INVOKED IN THE PROGRAM. * 

* — _ — — * 



PROCEDURE DUMP M EMOCUL ENO DES (HE AD MEMODULE: T3LPTR) ; 

VAR S:IELPTR7 
EEGIN 

S :=HE AD MEMODULE; 

WHILE SO NIL DC 
EEGIN 

WITH S3 DO 
EEGIN 

WRITELN (OUTFI LE) ; 

WRITE (CUTFILE, • MEMNUM OFFSET HIGH LOW'); 
WRITELN (OUTFI LE, ’ SEGT3LSTART' ) : 

WRITELN (OUTFI LE, MEM NUM: 6, OFFSET :8. HIGHOFFSET: 6 
, LOWOF:SST:5, S2GT3LS3. START ADD R : 1 0) ; 
WRITELN (OUTFI LE) ; 

END; 

S:=Sa>. NEXT; 

END ; 

END; (* DUMP MEMODULNOCES *) 



(*- - *) 



— _ _ _ _ — _ _ _ „ _ _ _ _ _ _ — — — . — _ _ _ _ _ 

* WRITE LEADZERO: EADS INTEGER FIELD WITH LEADING *) 

* ZERCS *) 

ft ft) 



PROCEDURE WRITE LSADZSRO(VAR OUTFI L E; TEXT ; NUM , FLD : INT EG ER ) ; 
VAR I, IN: INT EGER; 

BEGIN 

TN : = NU M ; 

REPEAT 

T N : = TN DIV 10; 

FLB: =FLD- 1; 

UNTIL (TN = 0 ) ; 

FOR I : = 1 TO FLD DO 
WRITE (OUTFILE ,'0* ) ; 

WRITE (CUTFILE, NUM: 1) ; 

END; (* WRITS LEADZERO *) 

( ft *) 
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* WRITELEL: WHITES OUT THE TI-59 CODED LABELS * 

^ _ — — — _ _ _ _ _ _ _ _ _ _ _ _ _ * _ _ _ *_*.*.■»*_ 

PROCEDURE WRITELBL (VAR 0 UTFILE :T2XT; CO DES S : INT EGER) ; 
EEGIN 

WRITELN (OUT FILE, TILBL (.CODESS. ) ) ; 

END; (* WRITELEL * 

(* * 



f __ _ _ __ _ _ _ __ _ _ _ _ __________ __ ______ _ ______ __ ) 

i* WRIT ICC DES; WRITES THE ADDRESS AND KEYCODE TO LINE *) 
'* * 1 



PROCEDURE WRITECODES (VAR OUTFILE; TEXT ; CU R ;COD E FTR) ; 
EEGIN 

WRITE LEADZERO(OUTFILE,CURa). A AD DR, 3) ; 
WRITElOUTEILE, 1 '); 

WRITE LE A DZERO (0 UTFILE ,CU Ra). KEY, 2) ; 

WRIT ElOUT FILE , ' '); 

END; (* WRITECODES * 

( * 



- 4 *1 



* WRITENUM: WRITES KEYC DE AS A N U LIBER NOT A LAEEL 



RCCEDURE WRITENUM (VAR OU TFILE; TEX T ; CUR :CODEPTR) ; 

EEGIN 

WRITE LEADZERO (OU TFILE, CURa) .KEY, 2) ; 

END; (* WRITENUM 



-* 

* 
— 1 V 



* 

* 



I 



* 

* HANDLE #STE PS : PRINTS OUT DIFFERENT CASES OF CODES, 

* EG. "WHETHER CNE OR TWO STEP INSTRUCTION. 

* USED FOR CODEPTR TYPE OF NODES. 

* 



PROCEDURE HANDLE OSTEP(VAR OUTFILE: TEXT; 

VAR CUR: CODEPTR) ; 

EEGIN 

WRITS (OUTFILE, • ' ) ; 

WRITECODES (CUTFILE , CUR) ; 

WRITE (OUTFILE, ' '); 

WRITEL3L(0UTFILE, CURS. KEY) ; 

END; 



PROCEDURE HANDLE 1STEP (VAR OUTF I LE : TEXT ; 

VAR CUR: CODEPTR) ; 

BEGIN 

CUR :=CURa) . S EC; 

WRITE (OUTFILE, ' '); 

WRITECODES (CUTFILE ,CUS) ; 

WRITE (OUTFILE,' 4 ) ; 

WRITE NUM (OUTFILE, CUR) ; 

WRITELN (OUTFILE) 

END; (* HANDLE 1ST EP *) 



-* 

* 

* 

♦ 

-* 
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-fr * * * 



PROCEDURE HANDLE 2STEP(VAB OUTFILE; TEXT; 

VAR COR: CODEPTR) ; 

VAR I :I NT EGER ; 

BEGIN 

FCR I := 1 TO 2 DO 
BEGIN 

CDS : = CU Ra). S EQ ; 

WRITE (OUTFILE, • '); 

WRITECODES (OUT FILE, CUR) ; 

WRITE (OUTFILE, » •) ; 

WHITEN UK (OUTFILE, CUR) ; 

WRITELN (OUT FILE) ; 

END ; 

END; (* HAN DLE_2ST EP *) 

PROCEDURE HANDLE 3STSP(VAR OUTFILE : TEXT; 

VAR CUR: CODEPTR) ; 

VAR I: INTEGER ; 

BEGIN 

FCR I : =1 TO 3 DO 
BEGIN 

CU R: = CUR3. SEQ ; 

WRITE (CUTFILE , ' ’); 

WRITECODES (OUTFILE, CUR) ; 

WRITS (CUTFILE, ’ '); 

WRITENUK (OUT FILE, CUR) ; 

WRITELN (OUTFILE) ; 

END ; 

END; (* HANDLE #STE? *) 

( * = *) 



PRINT CCD EL IS T : PRINTS OUT THE TI-59 CODE FOR 
CODEPTR NODES CNLY. 



RCCEDUBE PRINT COEELIS?(VAR OUTFILE: TEXT; 

VAR BUILT CODE: CODEPTR) ; 

VAR CUR: CO DEPTH; 

5EGIN 

CUR := EUILTCODE ; 

WHILE CUR <> NIL DO 
EEGIN 

HANDLE OSTEP (OUTFILE, CUR) ; 

IF CURaS. KEY IN (.71,76.) THEN 
BEGIN 

CUR: = CURa>. SEQ ; 

HANDLE OSTEP ( CUTFILE, CUR) ; 

END 

ELSE 

EEGIN 

IF CUR2.KEY IN STEP 1 THEN 
HANDLE 1 STEP (OUTFILE, CUR) ; 

IF CURa.lEY IN STEP 2 THEN 
HANDLE 2STEP (OUTFILE, CUR) ; 

IF CURE. "KEY IN STEP 3 THEN 
HANDLE 3STE ? (OUTFILE, CUR) ; 

END; 

I? CUR <> NIL THEN 
CUR: =CUR3.SEQ; 

END ; 



-*) 



-*) 



END; (* PRINT CODELIST *) 

(* *> 
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{* FINE MSG: SEARCHES INPUT FILS TO FIND MSG NUMBER. * 

« . .. . .................. ______ _ _ _ _ __ _ ^ 

PROCEDURE FIND MSG (VAR ME SSAGEFIL3 : TEXT ; MSG: INT EGER) ; 

VAR C 1 : CHAR ; “DIGIT: INTEGER; 

BEGIN 

RESET (MESSAGEFILE) ; 

C 1 : = • • ; 

DIGIT :=-1 ; 

REPEAT 

READ (M ES SAG E FILE , Cl ) ; 

IF Cl = •$' THEN 

READLN (MESSAGE FILE, DIGIT) 

ELSE 

READLN (MESSAGEFILE) ; 

UNTIL ((C1='S') AND ( DIGIT= MSG) ) ; 

END; (* FIND MSG * 

/* * 



* * ) 

* INIT SETS: INITIALIZES IMPORTANT DATA SUCH AS KEY- *) 

* CCTE LA3EL ARRAY, STEP SETS, KEY VARIABLES AND * 

* INTIALIZES THE SCRATCH FILE *) 

__________ _ __ __ _ , __ _ ________ __ ________ ____ ________ _ j}c | 

ROCEDURE INIT SETS (VAR T ZMPFILE: TEXT : VAR STEP 0,STE? 1, 

— s ? EP 2 STEP S^INSTP 'SZ*’* 

VAR GOOD SEGMENT: BOOLEAN ; ~~VlF/MESSTTGEFiLB:TEXT: 
VAR TI LBl:TY PEL ABELS ; VAR SBRINVNEST : INTEGER) ; 

VAR C : CHAR ; 

DIGIT, J ,L,K,I:INTEG ER; 



i $ - — — ———————— — — — — — — *' 

i 1 * GET REGCOUNT: GOES TO SCRATCH FILE AND FINDS THE *) 
(* MESSAGE NUMEE3 CONTAINING THE REGISTER COUNT *\ 

' ^ — — — — — — — — — — — — — — — — —— — — — — —— — — — — — — — — — — —— — —— — — — — — — — —4c J 

PROCEDURE GET REGCOUNT (VAR REGCOU NT : I NT EG ER) ; 

BEGIN 

FIND MSG (SCRATCH ,RGCT) ; 

REAClN (SCRATCH, R SGCOUNT) ; 

END; (* GET REGCOUNT *) 

(* *j 

EEGIN 

S3RINVNEST:=0 ; (* INITIALIZES THE INVOKE NEST CHECK *) 

RESET (MESS AGEFILE) ; (* INITIALIZE TIIABELS *) 

DIGIT : =- 1 ; (* LA3EL3 IN MESSAGEFILE *) 

REPEAT 

READ (MESSAGEFILE ,C) ; 

IF C = 'S' THEN 

READLN (MESSAGEFILE, DIGIT) 

ELSE 

READLN (MESSAGEFILE) ; 

UNTIL (C = '$») AND (DIGIT = ALPHAL3L) ; 

L • -Q • 

FOR I : =0 TO ALPHALBL DO 
EEGIN 

IF NOT (I IN(. 2 1, 26, 31, 41, 46, 51, 56, 82. ) ) THEN 
EEGIN 

READ (MESSAGE? ILE,TILBL (.1. ) ) ; 

L : -L+ 1 ; 

IF L = 4 THEN 
EEGIN 

READLN (MESSAGEFILE) ; 

L : =0; 

END ; 

END 
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# * # tt * 



EL ^2 

TILBL (. I. ) := » 3L ANK » ; 

END ; 

GET_R EGCOUNT (REGCOUNT) ; 

REWRI IE (TE MPFI LE) : /* OPENNING AND MARKING *) 

W3I IE LN (T E MPFI LE , ' $9 ' ) ; (* THE TEMPFILE WITH MSG 9 *) 

REWRITE(OUTFILE) ; (* INII OUTPUIFILE *) 

GOCD_SEGMENT:=TBUE; 

(* STEP TYPES OF INSTRUCTIONS *) 

U ,44,43,49,58,62,63,64,69,72,73,74 
83,34,86 1) ; 

STEP 0:= (.9. .99.) - (STEP 3+STSP 2 + STEP 1); 

END; ~ “ <* I NIT SETS *) 

(* ~ *) 



STEP 3 := 
SlEP - 2:= 
STEP - 1: = 



87 , 97 .): 

61 ,67 , 7 ^ 
36.40.42 



*\ 

ADVANCE CODEPTR: MOVES ALONG CODE SKIPPING 1, 2, OR 3*) 

STEP INSTRUCTIONS AND STOPS ON NEXT COMMAND INSTE. * 
TREATS 71 AND 76 AS SINGLE STEPS. *) 

. *) 

PROCEDURE ADVANCE CCDEPTR (VAR CUR: CODEPT R) ; 

VAR I :INTEGER; - 
BEGIN 

IF CUR®. KEY IN STEP 3 THEN 
EEGIN 

FOR L: = 1 TC 4 DO 

IF C0R3.SEQ <> NIL THEN 
CUR: =CUR3.SEQ 

END 

ELSE 

IF CUR3.KEY IN STEP 2 THEN 
BEGIN 

FOR L:= 1 TO 3 DO 

IF CUR5.SEQ <> NIL THEN 
CUR : =CURa>. S EQ 

END 

ELSE 

IF CURE. KEY IN STEP 1 THEN 
EEGIN 

FOR L : = 1 TO 2 DO 

IF CUE3.SEQ <> NIL THEN 
CUB :=C UR3 . SEQ 

3D 

ELSE 

IF CUR3.SEQ <> NIL THEN 
CUR; =C URa). SEQ ; 

END; (* END ADVANCE CCDEPTR *) 
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* 

* PRINTLN MSG : PRINTS 

* TC ANOTHER FILE. 

* WHOLE MESSAGE AND 

* AT THE END OF THE 



A SPECIFIC MSG FROM ONE FILE 
THIS ROUTINE WILL TAKE THE 
PRINT IT. IT EXECUTES A WRITE 
PRINT 



--*) 

* 

* 

LN * 
* 

* 



PROCEDURE PRINTLN MSG ( VA R OUTFILE, MESSAGEFILE: TEXT; 

MSG: INTEGER) ; 

VAR Cl; CHAR; 

EEGIN 

FINE MSG (MESS AGEFILE, MSG) ; 

READ7MESSAGEFILE,C1) ; 

WHILE Cl O' $ • EO 
BEGIN 

WRITE (OUTFILE, Cl) ; 

WHILE NOT ECLN (ME SS AGEFILE) DO 
BEGIN 

READ (MESS AGEFILE, C 1) ; 

WRITE (CUT FILE ,C 1) ; 

END; 

READLN (MESSAGEFILE) ; 

WHITELN(OUIFILE) ; 

READ (MESS AGEFILE, Cl) ; 

END; 

END; (* PRINTLN MSG *) 

(* ' * 



— - — — - — 

* PRINT IINEMSG: PRINTS A SEECIFIC ONE-LINE MESSAGE *) 

* TC ANOTHER FILE. DOES NOT WRIT ELN TO FILE. *) 

* USED FOR LINE LABELS OF GENERATED DATA. *) 

— — — — — — * \ 



PROCEDURE PRINT MSGLINS1(VAE OUTFILE, MESSAGEFILE : TEXT : 

MSG; INTEGER) ; 

VAR C 1 : C HA R ; 

EEGIN 

FIND KSG (MESSAGEFILE, MSG) ; 

READ7MESS AGEFILE, Cl) ; 

WHILE CIO'S' DC 
EEGIN 

WRITE (OUTFILE, Cl) ; 

READ (MESS AGEFILE, Cl) ; 

END ; 

END; (* PRINT MSGLINE1* 

( * - * 



DET LIMIT: DETERMINES MEMORY LIMITS BASED ON REG CNT 

CHLY THREE PARTITIONS WERE CONSIDERED. THIS WAS 
BECAUSE ANY OTHER PARTITION SPLITS THE SIDE 
OF A MAG CARD E ETWEE N REGISTERS AND PROGRAM. 

THIS WOULD CHANGE REGISTERS DURING REPROGRAMMING 
AND IS THEREFORE UNACCEPTABLE. 



PROCEDURE DET LIMIT (VAR R EGCOUNT, LIMIT, NUMB AN KS, 

PART NUM: INTEGER; 
VAR PARTITION: REAL) ; 

EEGIN 

IF REGCOUNT + RT NREGNUM IN (.0.-29.) THEN 
EEGIN 

NUMB AN KS : = 3 : 

PARTITION: =719.29 ; 

P A RT N UM : = 3 ; 

LIMIT: =719; 

END 
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ELSE 



IE BEGCOUNT + RTNREGNUM IN (.30.. 59.) THEN 
BEGIN 

NUMBANKS : = 2: 

PA RT IT ION: =4 79. 59 ; 

PART NUM :=6; 

LI MIT: =4 79 ; 

END 

ELSE 

BEGIN 

NUMBANKS :*1; 

PART IT 10 N : =2 39 . 89; 

PART N U M : =9 ; 

LI MIT: = 2 39; 

END; 



* CLEAN: REMOVES SAME F JUMPS AND SAME S3RS IN A SEG 

* TEL NODS. ALSO GIVSS DELETE COUNT FOR F JUMPS 

* INCLUDED IN THE CONFINES OF THE SEGM ENT. “DOUBLE 

* DUTY SOUTINE. USED BY COMBINE AND BY SET LENGTH 



ROCEDUEE CLEANfVAR CURTP : TBLPT R; VAR DELET E: INT EGER) ; 
VAR F,S:TBLPTH; 



VAR T,S:T3LPTR; 

BEGIN 

WBILE Fa). NEXT FJUMPONIL DO 
BEGIN 

S: =F5). N EXT_FJUM P; 

T: =f • 

WHILE (SONIL) DO 

IF Sco . JUMP ADDRTO = Fa). JUMP ADDRTO THEN 
BEGIN 

To) . NEXT FJUMP: = S5>. NEXT FJUMP; 
DISF0SE7S ,FWD JUMP) ; “ 

S : =T3. NEX 1 FJUMP 
END 
ELSE 
BEGI N 

T : =Ta). NEX T FJUMP; 

S : = Sa>. NEX T”F JU MP; 

END ; 

IF F2. NEXT FJUMPONIL THEN 
F:=F3).NE1T FJUMP; 

END; 



(* DST_LI MIT 




END 



(* PRUNE_SAMEF 
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* # # # # 



..... .. . . __ . . _ ... .................. .. 

(* PHONE CREATOR: REMOVES FJUMPS CONTAINED IN SEGTBL *) 

- — — — — — - — — — — 

PROCEED EE PRUNE GREATOR (VAR F,S:T3LPTR; 

VAR DELETEiINTEGER) ; 

BEGIN 

WHILE FONIL DO 
BEGIN 

IF Fa!. JUMP ADDRTO<=CURTPa).STOP A DDR THEN 
BEGIN 

Sal. NEXT FJUMP:=Fa).NEXT FJUMP; 

EISPCSE7F.FWD JUMP); 

F:=Sa.NEXT FJUMP; 

DELETE:=DElETE+1 ; 

END 

ELSE 

BEGIN 

S: = S 2 . NEXT FJUMP; 

F: = F2 .NEXT - FJUMP 
END; 

END; 

IF CUR TP 2. F JUMPLIS Ta). JUMP ADDRTO<=CURTPa> . STOP AD CR 

THEN 

BEGIN 

F: =C URTP2 .F JUMPLIST; 

CURT PS. F JUHPLIST: =FS.NEXT FJUMP; 

DISPOSE (?,FWD JUMP); 

DEL ETE : = EELETE+ 1 ; 

END; 

END; (* PRUNE GREATCR *) 

(* *) 

(* *> 

j* PRUNE_SAMES: REMOVES SAME S3R INVOKES FROM SEGTBL *j 

PROCEDURE PRUNE S AMES (V AR F: TBLPTR) ; 

VAR S ,T, SS ,FFTlELPTR; 

J * PASS 3RK: PASSES OVER THE SBR EREAK NODE *] 

* = *) 

UNCTION PASS EFK { F: T ELPTR) : TBLPTR ; 

BEGIN 

CASE FS.TAG OF 

SBRBREAK: PASS BRK : =FS. S B RZ ; 

TABLE: PASS BRK : = F ; 

END; 

END; (* PASS 3 RK *) 

(* r *) 

EEGIN 

WHILE FONIL DO 
BEGIN 

S: =FS. NE XT SBR; 

IF SONIL THEN 
BEGIN 

FF: =PASS BR K (FS. SBR) ; 

SS: =EASS"BRK (S3. SBR) ; 

END; 

•J* = p • 

WHILE (SONIL) DO 
IF SS = FF THEN 
BEGIN 

TS .NEXT S ER : =SS .NEXT SBR; 

DISPOSERS ,SERPTR) ; " 

S : =Ta>. NEX T SBR; 

IF SONIL THEN 

SS: = PAS S BRK (Sal . SBR) ; 

END 

20 2 



■fr # # * # 



ELSE 
ESC- IN 

T: =TS. NEXT S5R; 

S : =59. NEXT~SBR; 

I? SONIL THEN 

SS: = PASS BEK (S2>. SBR) ; 

END ; 

F: = F3. NE XT S3R; 

END; 

END; (* PRONE S AMES ER *) 

(* * 

BEGIN 

DEIETE:=0 ; 

IF CURTPD.F JO M ELI ST <> NIL THEN 
EEGIN 

F:=CURTPa.F JUMPLIST; 

PRUNE SAMEF1F) ; 

END ; 

IF CURTPS.F JUHFLISTONIL THEN 
EEGIN 

S;=C0RTP3.F JUMPLIST; 

F:=Sa>. NEXT FJUMP; 

PRUNE GREATCR(F,S , DELETE) ; 

END; 

IF CURTPa. SBRLISTONIL THEN 
EEGIN 

F:=CURTPa. SERLIST ; 

PRUNE SAMSS(F); 

END; 

END; (* CLEAN *) 

* — — 



Cl AGS NEST1S3R3RK: DIAGNOSTIC PRINTOUT IF THERE IS A *] 
A ScR BREAK WITHIN AN ITERATIVE LOOP. NEEDS TC SET *) 
GGCD_SEG MENT VARIABLE FALSE *J 

ROCEDURE CIAGS N ES1 1 S 3RB RK ( VAR T3MPFILE : TEXT; S E G : T 3 L? TR ; 

VAR GOOD SEGMENT; BOOLEAN) ; 

VAR IS ERK BELOW : E00 LEAN; 



i* EELOW BREAK: SEARCHES OUT BELOW TO SEE IF A BREAK *1 
<* IS PRESENT SO DIAGS NEST 1 CAN CHECK FOR A BREAK *) 
(* WITHIN A LOCE ~ *) 

(* * 

PROCEDURE BELOW EREAK (S EG: TBLPTR ; VAR IS BRK BELOW: 

- BOOLEAN) ; 

VAR SER, S3RL: TELPTR; 

3EGIN 

IF NOT IS BRK EELOW THEN 
BEGIN " 

IF SEG3 . SERLISTONIL THEN 
BEGIN 

SBRL :=SEGo). SBRLIST; 

WHILE SBRLONI1 DO 
3EGIN 



END; 



END; 



IND; 



SER:=SBRLi.S3R; 

IF SBRS .TAG=SBRBREAK THEN 
IS BRK B ELOW; = T RU E 
ELSE" 

BELOW BREAKfSBB.IS BRK BELOW) ; 
SERL;=S'ERLd).NEXT SBRJ 
END ; 



(* BELOW_BREAK *) 
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(* 



(* 

BEGIN 

IS EE K BELOW : = F ALS E; 

EElCW BRE A K ( S EG ,IS BR K BELOW); 

IE (IB BR K BELOW) ABD(SSGS. NEST= 1) 
BEGIU ■ 

GOOD SEGMENT;=FALSS; 

W EITBL N (T EMPFILE) ; 

WRITE (TEMPFILE,' •); 

WRITELNfTEMPFILE, '* SBR BREAK 
WRITE (TEMPFILE, • 

WRITELN (TEMPFILE, * LOOP EOU 
,' TO ' , SEGS . STOP ADDR;4) ; 

END ; 

END; (* 



■*) 



THEN 



WITHIN A LOO?') ; 

N !)S • ,SEGS. START ADDR: 4 



DIAGS NESTIS] 




El AGS NES 
EXISTS 
TAKES I 
SET GCO 



T 1 LEN GTHCHK : PRINTS OUT DIAGNOSTIC IF THERE 

AN ITERATIVE LOOP OF TOO GREAT A LENGTH. 

NTO ACCOUNT OUT OF LOOP JUMPS. NEEDS TO 
D SEGMENT FALSE IF ENCOUNTERED 



AGS NEST1LENGTHCHK (VAR TEMPFILE :TEXT : 

“ CUR; TBL PTR ; VAR GOOD_SEG MENT: BOOLE AN) 

.LENGTH > LIMIT) AND (CURE) . NEST=1 ) THEN 



EEGIN 

IF (CURS 
EEGIN 
GOOD 
WRIT 
WRIT 
WRIT 
WRIT 
WRIT 



(*■ 



END; 



END 



S EGM E NT : = FAL SE; 

BLN (TEMPFILE) ; 

E (TEMPI ILE , ' ' ) • 

EL N (TE MPFI LE , '* BACK JUMP NEST TOO LONG'); 

f? ( TP MOfTTP • » \ • 

ELN (TEMPFILE, ' LOOP BOUNDS'. 

CURS. START, ADDR:4 TO ' , CURS . STO P_ ADC R ; 4 ) 

(* DIAGS _NEST1SERERK 
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tt -• -• # tt * # # 



Cl AG S NEST6SBRINVCHK: CHECKS THAT THE SBR NEST LEVEL *\ 

DOE'S NOT EXCEED 6 *) 

* 

1CEDURE CIAGS NE ST6S 3RI NVCHK ( VAR TEMPFILE :T EXT ; 

CUR: T ELPTR ; VAR GOOD SEGMENT : BOOLE AN: 

S3 RTNVNEST: INTEGER) ; 

! EGIN 

IF S E BIN V NEST > 7 THEN 
BEGIN 

GOOD SEGMENT:=FALSE; 

WRITE (TEMPFILE , ’ 

WRITSLN (TEMPFILE, •* SBR INVOKE NEST LEVEL > 6') 
WRITE (TEMPFILE, ' •) ; 

WRITE (TEMPFILE, 1 CALLES ROUTINE STARTS «); 

W RIT EL N (T EMPFILS, ’AT ABS ADDR ', CUR a. START A DDR 
END ; 

(* DIAGS NE ST6 S3RI NVCHK 



lU 



END 



:3) 

-1 



__________ __ _ _ _ _ _ _ _ _ _ _ _ _ _ __________ ________ ____ _ _ _ _ _ _ __ \ 

(* RESET INCLUDED: SETS ALL INCLUDES TO FALSE. DOES SC *) 

(* FCR“ ALL ROUTINES ON THE SBRLIST AND BELOW S3RS *) 

# \ 

PROCEDURE RESET INCLUDED ( V AR SBRL: TBLPTR ) ; 

VAR SERLST, SBR: TBLPTR; 

EEGIN 

SBRLST:=SBRL; 

WHILE SBRLSTO NIL DO 
EEGIN 

SER: = SERLSTa).SBR; 

CASE SBRS.TAG OF 
TABLE: 

SBR: = SER; 

SBRBREAK : 

SBR: = SEEa). SBRZ 

END; 

IF (SBR3. SERLISTONIL) AND (S BR3. COAL ESCED= 

TRUE) THEN 

RESET INCLUDED (SBE8. SBRLIST) ; 

IF (S3 RaJ. COALESCE D= TRUE) THEN 
SBEfl. INCLUDED: * FALSE; 

SERLST: = SBELSTa).NEXT SBR; 

END; 

END; (* RSET INCLUDED *) 

(* “ *) 



’ _ __ _ _ __ _ _ _ _ £ \ 

'* INPUT: *) 

(* PUFPCSE: TO READ AN INPUT FILE AND FORM SEQ LINKS. *) 
(* THIS FORMS THE INTERNAL CODE STRUCTURE WHICH WILL *) 
(* 3E MANIPULATED *) 

(#——————— — — — — — — * j 

PROCEDURE IN?UT(VAR SCRATCH: TEXT; VAR SUILT CODE :CODEPTR; 

VAR 3UILT CODE COUNT : INTEGER) ; 

VAR ADDRESS :INTEGER ; 

TEMP, COUNT: INTEGER ; 

CUE,T RAIL: CCD EPTR; 

EEGIN 

FIND MSG ( SCRATCH, CODENUM) ; 

READ! SC RAICH, TEMP) ; 

IF TEMP > -1 THEN 
EEGIN 

NEW (CUR) ; 

EUILT CODE:=CUR; 
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* * * * 



COUNT : = 0 ; 

CURS . AADDR:=TEMP ; 

CURS. EADD R :=COUN T ; 

EEADLN (SCRATCH, CURS. KEY) ; 
TRAIL : = CU 5 
5 ND ; (*IF*) 



REPEAT 

NEW (CUR) : 

COUNT := CO UNT+1; 

READ(SC BATCH, CURS. AADDR) ; 
IF CURS.AADDRO-1 THEN 



EEGIN 

CURS. RA DDR: =CO UNT; 
READLN (SCRATCH ,CURS. KEY) 
TRAILS. SEQ: =CU R ; 

TRAILS. JMP:=NIL; 

TRAIL : = CUR; 

END : 

UNTIL (CURS. A AEDR = -1); 

BUILT CODE COUNT: =COUNT-1 ; 
TRAILS. JMF7=NII; 

TRAILS. SEQ:=NIL 



END; 
( * 



(* INPUT 



SETJMP: 

PURPOSE: TO SET THE JUMP POINTER OF THE BUILTCODE 



PROCEDURE SE T J HP S ( V AR BUILT COD E: CODEPTR) ; 
VAR CU R:CO DEPTH; 



<* 



j* SETJ MP_ ?T R; SETS THE JUMPTR OF THE CURRENT NODE 

PROCEDURE SETJMP PTR (VA R BUILT CO DE : CODEPTR ; 

CUR : CCD EFT R 

VAR MARKER, S EA ECH: COD E?T R ; 

ADDRSS S; INTEGER; 

3EGIN 

MARKER : = CURS .SEQ ; 

IF CURS. KEY IN STEP 3 THEN 
MARKER:=MARKEES.S cQ; 

ADDRESS: =100* MARKERS. KEY; 

ADDRESS : -ADDRESS ♦MARKERS. SEQS .KEY; 

SEARCH : = BUILT CODE; 

WHILE (SEARCHES. AADDROADDRESS) DO 
SEARCH := SEARCH S. S EQ; 

MARKERS. SEQS . JMP :=S EARCH; 

END; (* SETJMPS_PTR 

Iegin 

CUR : = EUI LT CODE; 

WHILE CURSTSEQ <> NIL DC 
BEGIN 

IF CURS. KEY IN (STEP 2+STEP 3) THEN 
SETJMP PTE (BUILT CT3DE,CURr; 

IF CURS. KEY IN (.7T,76.) THEM 
CUR: =C UR a . SEQS. SEQ 
ELSE 

ADVANCE CODEPTR (CUR) ; 

END; 

END; (* TEST SETJMP 
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* Hr ## ^ # ik 



* # # 



EUILD SEGMENT TAELE ROUTINES: CN THIS TABLE ALL *) 

OF THE_CO ALES CING_IS DONS, AND_N0T_TH3 CODE. _*j 

ROCEDURE BUI L E~ S3 C-TBL (BUILT CoEi: CODlpTRj’~ 

VAR~SEGTBL: TBLPTR; LI MI T : INT EG ER ; 

BUILT CODE COUNT: INTEGER) ; 

VAE HDRFTR: TELPTR; 



* * \ 

* BLE PRIM SEGTBL : RESULTS IN A TA3LE WITH CRITICAL *f 

* PCI NT S IDENTIFIED. THESE ARE BACK JUMP POINTS *) 

* TO AND FROM LOCATIONS. STOP IS STORED IN STOF * 

* ADDRESS OF THE FIRST NODE. *) 



/ * — 

PROCEDURE BLE ? R IMSEGT BL ( BUILT CODE : CODEPTR ; 

VAR HDRP TR : TELPTR) ; 

VAR CURCP: CODEPTR; 

CURTP: TBLPTR; 



I * # ) 

* PROCESS 3BRLEL: STORES THE 53RLBL IN THE HEADER *) 

* SERLI5T AND PRODUCES THE FIRST SEGMENT OF THE * 

* SEGMENT TAELE FOR EACH SBR. * 

* THIS IS CONFUSING IN THAT THE SAME TYPE OF NODE*) 

* IS USED TO STORE THE LABEL NAME AS IS USEE FOR *) 

* THE SEGTAELE. KEY FIELD REDEFINITIONS FOR THIS*) 
* FUNCTION SO THAT THE NAME GOES INTO THE FIELD * 

* STOP ADDR. THESE LABEL NODES ARE NEEDED TO BE *1 

* A EL E~TO SET THE SBR INVOKE POINTERS LATER ON. *) 

* *) 

RCCEDURE PROCESS SBR L3L (V AR C U RC ? : C ODE FT R ; 

VAR CURTP: TBLPTR) ; 

VAR TRAILTP: TELPTR; 

EEGIN 

TEAILTF:=CUFTP; 

NEW (CURTP , TABLE) ; 

C URTPa) .TAG: =TA BLE ; 

CURTPa) .TABLELIST: =NIL; 

CURTPa). COALESCED: =FALSE; 

CURTP a). INCLUDED— FALSE; 

CURTPa).S3RLIST:=NIL; 

CURTPa). ST ART ADDR :=CURCPS. A AD DR; 

CURTPa). STOF IDDR:— 1; 

IF C U RCPa) . KEY = 76 THEN 
BEGIN 

CURTPa). STOP A DDR : =CURC P a). S EQa) . K EY ; 

CURCP : =CURC~3 . SEQa) . SEQ 
END 
ELSE 

CURTPa). STOP ADDR: = -1; 

IF TRAILTP <>“NIL THEN 
TR A I LTP a) . SBR LIS T: = CURTP ; 

END; {* PROCESS SBRLEL *) 

( * *) 
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* # # 





ERCCESS SBRCCDE : PROCESS THE TI-59 S 3R CODE FOR * 
CRITICAL INFO AND BUILDS THE PRIMITIVE SEGS *) 

PROCEDURE PROCESS SBRCODE(VAR CUR CP: CODEPTR ; 

VAR S3RHDRTP: TBLPTR) ; 

VAR TOPTP, CU F.TP: T3L PTR ; 

j* IS BCK JME: DETERMINES IF THE JUMP IS BACKWARDS*! 

(* r * 

FUNCTION IS EACK JM P (CURCP: CO DE PTR ) : 300LEA N ; 

VAR ADDRESS lINTlGER ; 

EEGIN 

IF f CURCP2 . KEY IN STEP 2) THEN 
BEGIN 

ACDRESS:=CURCP5>.SEQa>. SEQa). J MP3. A AD DR; 

IF ADDRESS > CURCP2.AADDR THEN 
IS EACK JMF:=FALS3 
E LS E “ 

IS EACK JM P : =TRUE; 

END 

ELSE 

I? (C U R CP3. KEY IN STEP 3} THEN 
BEGIN 

ADDRESS :=CURCP3. SEQS.SEQS. SEQ3. JMP3 . A ADDR; 
IF ADDRESS > CURCPS . AADDR THEN 
IS BACK JMP :=FALSE 
ELSE” 

IS BACK JMP:=TRUE; 

END 

ELSE 

IS BACK JMP: =FALSE ; 

END; " (* IS BACK JM? *) 

<* * 



(* — — — — — — — — 

(* At ND JMP TBL: DETERMINES ALL OUT OF CODE JUMPS *) 
(* FROM A” n F BOM" ADDRESS TO A "TO” ADDRESS. * 

/*-- 

PROCEDURE APND JMP TB L (CURCP: CO D EPTR ; 

VAR TOPTP: TBLPTR) ; 

VAR ADDRESSFR,ADDRE SSTO: INTEGER ; 

! $_____ _ — 

* INSERT CRITS: PLACES CRITICALS IN SEGTBL. *) 

* CRITICAL IS ADDRESS WHERE A BACK JUMP NEST * 

(* LEVEL CHANGE TAKES PLACE, IE START OR STOP. *) 

*) 



PROCEDURE INSERT CR ITS (ADDRS S 5 : 1 NTEGE R ; 

— VAR I 0 PTP : TBLPTR) * 

VAR CURTP ,IRAILT P,INSERTTP :TEL?TR; 

BEGIN 

TRAILTP: =TO?TP; 

CURTP:=TCPTPS.TABLELIST; 

WHILE (CURTPS. START ADDR < ADDRESS) AND 
(CURTP3. T ABLETIST <> NIL) DO 

BEGIN 

TRAIL!?: =CURTP; 

CURTP :=CURTPa). TAB LSLI ST; 

END; 

NEW (INSERTTP ,TA ELS) ; 
INSERTTPa.TAG:=TABIE; 

INSERTTP2. START ADDR : =ADDRSSS ; 

IN S ERTTP 2 . STOP 3DDR:=-2; 

IF (CURTP2.TABEELIST= NIL) AND 

(CURTP3. START ADDR < ADDRESS) THEN 
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BEGIN 

CURTF3.TABLELIST :=INSERTTP; 

INSERTTPa). TABLELIST: =NIL 
END 
ELSE 

IE (CURTPa). TAELSLIST=NIL) AND 

(CURTPa). START A DDR > ADDRESS) THEN 

BEGIN 

TR AILTPai. TABLELIST: =IN SERTTP; 

INSERTTPB.TA BLELIS T : = CURT P 
END 
E L SE 

IF CURTPa). START ADDR > ADDRESS THEN 
BEGIN 

INSERTTPa). TABLELIST: =CURTP; 

TRAILTP B. TABLELIST :=IN SERTTP 
END 
ELSE 

D I SPOS E(IN5ERTT?,TA3LE) ; 

END; (* INSERT CRITS *) 

(* = 

* 

* SET NESTS: SEARCHES THE PRIM SEGTBL AND MARKS 

* AS 1 ALL OVERLAPPING BACK JUMPS TO DESIGNATE *' 

(* THAT THEY ARE IN A NO BREAK AREA * 

( * * 

PROCEDURE SET NESTS ( ADDRESSF R , ADDR ESS TO : I NT EGER ; 

VAR TOPTP: T3LPTR) ; 

VAR CURTP : TELPTR; 

BEGIN 

CU R TP : = TCFTP ; 

WHILE CURTPa). ST ART ADDR <> ADDRESSTO DO 
CURTP: =CURTPB .TAdLSLIST; 

WHILE CURTPa) . ST ART ADDR <> ADDRESSER DO 
BEGIN 

CURTP3.NEST := 1; 

CURTE:=CURTPo>. TABLELIST 
END: 

CURTPa). NEST: =0; 

IF ( (CURTPa). TA3LELIST <> NIL) AND (CURTP3 .NEST = 
1)) THEN 
C URTP3 . NEST: = 1 



END; (* S ET_NSSTS 

1: EG IN 

IF CURCPa) . KEY IN STEP 2 THEN 
BEGIN 

ADDRESSTO: =CU RCPa). S EQa) . SEQa). JMPa). A A DDR; 
ADDRESSER: =CU RCPa). SEQ3 . SEQa) . A ADDR 
END 
ELSE 
BEGIN 

ADDRESSTO: =CU RCPB. S EQ3 . SEQa) . SEQ a). JM Pa) . AAD DR 
ADDRSSSFR: =CU RCP3. SEQa). SEQa). SEQa). A ADDR 
END; 

INSERT CRI1S(ADDRESSFR,T0PTP) ; 

INSERT~CRITS (ADDR ESSTO, TOPTP) ; 

SET NESTS ( ADDR ESS FR f ADDRES S TO , TOPTP ) 

END; " <* APND_JMP_T EL 

* 

EGIN 

NEW (CURTP, TAELE) ; 

C C R TPa) . T AG * = TABLE * 

CURTPa)! START ADDR: = SBR HDRTPa) . ST ART ADDR; 

CURTPa). NSST:=C; 

C CRT PB . COALESCED : =F ALSE; 




* 

-* 
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* * * * # 



CURTFS. INCLUDED: =FA LSE ; 

CGRTPS. TABLE LIST :=NIL ; 

CURTPS. S ERL I ST : = NIL ; 

SBRHDRTP3. TAELELIST :=CUBTP; 

TCPTP:=SBRHDETP; 

WHILE ( (CURCP 2. KEY <> 76) AND (CURCP3.SEQ <> NIL }) 
D C 

IF IS BACK JMP(CUBCP) THEN 
BEGIN 

A PND JMF T3L (CURCP, TO FTP) ; 

ADVANCE ZO DEP TR (CURCP) 

END 
ELSE 

ADVANCE CCDEPTR (CU5CP) ; 

IF CURCPS.SEC = NIL THEN 

TOFTPS.TABLELISTS. STOP ADDR : = CU RCP3 . A AD DR 
ELSE 

TCPTP3.TABLELISTal.STOP ADD 3 : = CU RCPS . A ADDR- 1 ; 

END; “ (* PROCESS S3RC0PE 

<* 

BEGIN 

CURCP*. = BUI LT CODE; 

CU3TP:=NIL; ~ 

PROCESS S3RLEL (CURCP, CURTP) ; 

HEHPTR : =CURTP ; 

WHILE (CURCPa.SEQ <> NIL) DO 
EEGIN 

PROCESS SERCGDE (CU RC P , CU 3TP) ; 

IF CURCP 3 . KE Y = 76 THEN 

PROCESS SBRLBL (CURCP, CURTP) ; 

END; 

END; (* BLD PRIMSEGTEL 



BID ADVSEGTBL : FILLS IN THE STOPS AND MERGES SAME 
NESTED LEVELS INTO ONE SEGMENT. 

STOPS ARE STOP ADDR FIELD 



PROCEDURE BLD ADVSEGTBL (VAR HDRPTR: TBLPTR) ; 
VAR SERTPrTBLPTR; STOP; INTEGER ; 



* MERGE ONES: COMBINES SAME NESTED ADJACENT 1 SSGS 



ROCEDURE MERGE ONES (VAR SBRTP : TBLPTR) ; 

VAR MARK,ZEKC70NE:TELPTR; 

/ * * 

* MERGE: DOES ACTUAL MERGING OF ADJACENT SEGMENTS* 
;* * 

tROCEDURE MERGE(VAR ON E, ZERO , MARK: TBLPTR) ; 

VAR DIS: TBLPTR ; 

BEGIN 

ONES. STOP ADDR: =ZER03. START ADDR; 

DIS: =0NE27TA 3LE LIST; 

WHILE ONES.TABL ELIST <> ZERO DO 
BEGIN 

ONES .TABLEL 1ST: =DIS3. TABLSLIST; 

DISPOSE (DIS .TAELE) ; 

DIS : =CNES.T ABLELISI 
END; 

IF ZEROS. TABLELIST <> NIL THEN 
ONES. TAELELIST :=ZSROS. TABL ELI ST 
ELSE 

ON ES . T AELELIS T : = NIL ; 

MARK:=ONE; 
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* *H* tt **#*-#• * * * 



DISPOSE (CIS, TAB IE) ; 

END; {* MERGE * 

(* * 

EEGIN 

MARK: = S3RT Fa. TABLE LIST ; 

WHILE MARKS. TABLELIST <> NIL DO 
BEGIN 

IF (MARKS. NEST = 0) AND (MARKS. TA3LELI STONIL) 
THEN MARK: =MARKS. TABLELIST; 

ONE:=M ARK; 

WHILE (MARKS. NEST=1) AND (MARKS. TABLELISTO NIL) 
DO MARK: =M ARKS. TA3LELIS T ; 

ZERO: =MARK ; 

IF ONE <> ZERO THEN 
EEGIN 

MERGE (ONE , ZERO, MARK) ; 

M ARK: = ON E ; 

END ; 

IF MARKS. TABL ELIST <> NIL THEN 
MA R K : = MA RKS . T A5LELIST ; 

END; 

END; (* MERGE ONES *) 

(* “ *) 

* — - — - — - — — — *) 

* ADC ZEROS: FILLS IN GAPS IN TABLE WITH 0 SEG *) 

* r *) 

PROCEDURE ADD ZEROS (VAR SBRTP: T3LPTR); 

VAR CUR, TRAIL, INSERT:TBLPTR; STOP: INTEGER ; 

BEGIN 

TRAIL :=5BRTP; 

CUR: =SERTP a. TABLE LIST; 

STOP ; = CURS. STOP A DDR ; 

WHILE CURS. TABLZL 1ST <> NIL DO 
BEGIN 

CUR: =CURS.TA ELE LIST ; 

WHILE TRAILS .TABLELIST <> CUR DO 
TRAII:=TRA ILS. TABLELIST ; 

IF TR AILS . NESTO CURS. NEST THEN 

TRAILS. STOP ADDR:=CURS. START ADD R- 1 
ELSE “ “ 

BEGIN 

NEW (INSERT. TABLE) ; 

INSERTS. NEST* =0* 

INSERTS.* START ADD R : =T RAILS . STOP ADDR + 1 ; 
INSERTS. STOP IDDR : =C URS . ST ART AL3DR-1; 
INSERTS. TABLILIST: =C UR; 

TRAILS. T A3LELIST: =INS ERT 
END ; 

END ; 

IE CURS. STOP ADD R <> STOP THEN 
BEGIN 

NEW (INSERT, TABLE) ; 

INSERTS. NEST :=0 ; 

INSERTS. START A DDR : =C URS . STOP ADDR+1; 

INSERTS. STOP IDDR:=STOP; 
INSERT2.TABLlLIST:=NIL; 

CURS. TABL ELI ST: =INSERT 
END ; 

END; (* ADD ZERCS *) 

(* " *) 

BEGIN 

SERIF: =HDRPTE ; 

WHILE SBRTP <> NIL DO 
BEGIN 

MERGE ONES (SBRTP) ; 

ADD_ ZERO S (SB RT? ) ; 

21 1 



> 













S3 RTP: =S E STP 5). S SRLIST 
END; 

END; 

( * 



(* BLD_A DVS EGT EL 



* 



! 



(* *) 

(* ELD FINSEGTBL: PROCESS CODE FOR 5 BR INVOKES AND *) 
(* FtJUMPS. WHEN ENCOUNTERED IT PLACES INTO SEGTEL. * 
(* THESE WILL INCLUDE ONLY ONE INVOKE PER SEGMENT *) 

(* AND ONLY ONE FJUMP TO SAME LOCATIONS. REPEATS *) 

(* KILL BE IGNORED. LENGTHS OF SEGMENTS WILL ALSO *) 
(* EE CALCULATED. LENGTHS DO NOT INCLUDE CODE FOR *) 



* SER I N VCK ES /PRO MPT CODE. ONLY SEQUENTIAL CO NT IN-* 

* UATION CODE IS INCLUDED IN LENGTH CALCULATION TO-* 



* GETHER KITH FJUMP PROMPT CODE. * 

♦ — — — — — -a* 



r ROCEDUfiE BLD FINSEGTBL (BUILTCODE : CODEPTR ; 

VAR HDRPTR; TBLPTR ; LIMIT: INTEGER) ; 

VAR CURCP: CODEPTR; 

SERTP: TBLPTR; 



|* ERCCESS SBRSEGTBL: PLACES SBRS S FJMP INTO SZGTBL* j 

PROCEDURE PROCESS SBR SEGTBL (VAR CU RC? : COD EPT R ; 

VAR HDRPTR, S3RTP; TBLPTR) ; 
VAR CU3TP r S3RINVOKE , F JMP : T3LPTR ; 



* — 

* HANDLE FW D JMP : INSERTS FWD JUMPS INTO TABLE. 

* — — — 

ROCEDURE HANDLE FW D JMP { CURC P : CO DS PTR ; 

VAR HDRPTR, CURT P, F J M P : TBL PT 
VAR ADDRESSTO, ADD RES SFR ; IN T EGER ; 

INSERT :TEL PTR ; 



-* 



R) 



EEGIN 

IF CURCPa.KEY IN STEP 3 THEN 
BEGIN 

ADDRESSER: =CURCPS.SEQS. SZQS.SZQS. A AD DR; 
ADDRESSTO: =CURCPS.SEQ S. SEQS. SEQS. JMPS. AADDR 
END 
ELSE 
BEGIN 

ADDRESSFR: = CURCPS .SEQ S. SEQS. AADDR ; 
ADDRESSTO: = CURCPS. SEQS. S EQS. J MPa) . A AD DR; 



END; 

NSW (INSERT, FWD JUMP); 

INS E RTS . TAG: =F7 D JUMP; 

INSERTS. JUMP AD DSFR: = ADDRESSFR ; 
INSERTS . JUMP - AD DRTC: = ADDRESSTO; 
INSERTS. JUMP“AD DRTO 1: =-1 ; 
INSERTS . JUMP - AD D RT02 : =-2 ; 
INSERTS. MEM IDDR:=-1; 

INSERTS. JUM? INTADDRT01;=-1 ; 
INSERTS . JUMP“INTADDRT02: =-2; 
INSERTS. NEXT - F J UMP : = NIL ; 

IF CURTPS.F JUMPLIST = NIL THEN 
BEGIN — 

CURTPS.F JU MPLIST;=INSERT; 
FJM P ; =IN3ER T ; 



END 

ELSE 

BEGIN 

FJMP3.NEXT FJUMP:=INSERT; 
FJMP : = INSElT 
END; 



END; (* HANDLE FWDJMP * 

( * - — - — — — — — * 



I 
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(* IS FWD JMP: BOOLEAN TRUE IF KEYCODE IS FWD JMP 

( A — — — — — — — — — — — — — 

FUNCTION IS FWD JMP (CU RCP : CO D EPTR) : EO OL E AN ; 

VAR ADDRESS -.INTEGER; 

EEGIN 



<* 



IF (CUR CP 2. KEY IN STEP 2) THEN 
3EGIN 

ADDRESS:=CURCPS.SEQS. SEQS. JM PS. A ADDR; 

IF ADDRESS > CURCPS. AADDR THEN 
IS FWD JMP :=TRUE 
ELSE" 

IS FWD JMP : =F ALSE; 

END 
ELS E 

IF (CURCFS. KEY IN STEP 3) THEN 
BEGIN 

ADDRESS :=C URCPS. SEQS . S EQS . SEQS . JM Pa). A ADDR 
IF ADDRESS > CURCPS. AADDR THEN 
IS FWD JMP:=TRUE 
ELSE" 

IS FWD J MF: =FALSE ; 

END 
EL S E 

IS FWC JMP: =FALSE; 

END; " (* IS_FW D_ J MP 



j* HANDLE S3RINVOKE: PLACES S BR CALL INTO TAELS 

FRCCEDURE HANDLE SB RIN VO KE ( V A R CURCP : CODEPTR : 

“VAR H DEPTH, CURTP, S 3R INVOKE : TEL FT 5 
VAR TOSBR, INSERT: T3LPTR; 

KEYY: INTEGER; 

EEGIN 

TOSBR: = HEEPTR: 

KEYY :=CU RCPS . SEQ2. KEY; 

WHILE TO SERS .STOP ADDEO KEYY DO 
TOSBR: =TCS3RS .STRLIST; 

NEW (INSERT, SBRPTR) ; 

INSERTS . TAG: =SB RPTR; 

INSERTS. FROM : =C URC PS . AADDR+1 ; 

INSERTS. SER: =TO SBRS . TA3L ELIST; 

INSERTS. NEXT SBF.: = NIL; 

IF CURTPS.S33LIS7 = MIL THEN 
BEGIN 

C'JRTFS.SBRLIST: = INSERT; 

SB HI NVOKE:= INSERT 
END 
ELSE 
BEGIN 

SBRI NVOKES. NEXT SBR : = INSERT ; 

S3RINVOKE: = INSERT; 

END; 

END; (* HAND LE_SBRI NVO KS 

l EGIN 

CURTP :=SBRTFS.TA3L EL 1ST; 

REPEAT 

CURT PS. S ERLIST: =NIL: 

CURTPS.F JUMPLI ST: = NIL; 

SBRINVOK'E :=NIL; 

F J M P : = N 1 1 ; 

WHILE CURCPS. AADDR < CURTPS.STOP ADDR DO 
BEGIN 

IF CURCPS. KEY = 71 THEN 
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^ H * 



HANDLE SBRINV0K2(CURCP,HDRPTR, CURTP, 

SB RINVOKE) ; 

I? IS FWD JMP (CURCP) THEN 

HANDLE FWDJMF (CURCP , HDRPTR, CURTP, FJMP) ; 

IF (CURCFa). KEY=76) OR (CURCPa) . KEY = 7 1 ) THEN 
CURCP: =CU RCPa). SEQo). SEQ 
2LS 3 

ADVANCE CODEPTR (CURCP) ; 

END; 

CURTP: =CURTP3.T ABLELIST 
UNTIL (CURTP = NIL) ; 

END; (* PROCESS SBRSEGTBL * 

(* * 



i — — — — — . — ______ \ 

(* SET LENGTH: ENSURES LENGTH IS WITHIN MEMORY LIMIT*) 

(* IT NOT WILL DIVIDE THE SEGMENT IN HALF AND * 

(* RESET ALL SBRLISTS AND FJUMPLISTS THEN CONTINUE*) 
(* NOTE: MAY LEAD TO PROBLEMS IS LIMIT IS *) 

(* ARBITRARILY SMALL. *) 



PROCEDURE SET LENGTH ( EUILT COD E : CODEPTR ; 

VAR SERTP: TBLPTR; LIMIT : INT EGER) ; 

VAR CURTP: T3LPTR ; 

LENGTH, DELETE, L FOSS BR: I NTEGER ; 



<* 

(* 

( ! 

IL 

PROCEDURE 



*) 

CALCULATE: DETERMINES LENGTH OF A SEGMENT. WILL*! 

NOT ADD ADDITIONAL STEPS FOR DUPLICATE EJM ? * 

ADDRTOS * 

* ' 



CALCULATE (CURTP : T3 LPTR ; 

VAR LENGTH: INTEGER) 



VAR S , F: TBIPTR ; 

ADDITIONS: INT EGER; 

BEGIN 

LENGTH :=CURTPa>. STOP ADDR-CURTP3. START ADDR 

J-FJUMFCONST-H ; 



I? CURTP3.F JUM PLISTONIL THEN 
p ^ r, t *j “ 

“ ADDITIONS:**); 

F : =CURTP a). F JUMPLIST; 

IF FS.JUMP IDDRTO > CURTP3. STOP ADDR THEN 
ADDITIONS :=1 ; 

S* =F * 

F: =F $ . NEXT FJUMP; 

WHILE F<> NIL DO 
BEGIN 

IF Fa). JUMP ADDRTO>C URTP3 . STOP ADDR THEN 
BEGIN 

ADDITIONS:=ADDITIONS+1; 

S: = CUET?a).F JUMPLIST; 

WHILE ((SOP) AND (S3. JUMP ADDRTOO 

Fa). JUMP AT3 D R T C ) ) DO 
S : = Sa). NEXT FJUMP; 

IF SO F THEN 

A EDITIONS : = ADDIT IONS- 1 ; 

END; 

F:=Fa).NEXT FJUMP; 

END* ~ 

LENGTH :=LENGT H+ (ADDITIONS) * ( FJU MPCO NS T) ; 

END; 

END; (* CALCULATE * 

( « * 
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if -if if if if 



L P0SS3HRK: CALC 
“POSSIBLE BREAK 
NOT INCLUDE MU 



ULATES ANY 3 BR INVOKES AS A 
FOB DIVISION PURPOSES. DOES 
LTIPLE INVOKES OF SAME SER 



PROCEDURE LENGTH S3 RBRKS (CURTP: TBLPTR ; 

VAR L POSSBRrINTEGS 
VAR F , T: TBLETR ; COUNTiINTSGER ; “ 

EEGIN 

COUNT: = 0 ; 

IF CURTP2.S3RLISTONIL THEN 
BEGIN 

F:=CURTPa.S 
WHILE FONT 
3EGIN 

IF NOT (F3).3BRg). INCLUDED) THEN 
BEGIN 
COU 
Fa. 

END; 

F :=F 2. NEXT S3R; 

END* “ 

F:=C0RTPa.S 
WHILE FONI 
BEGIN 
Ea.sBRa 
F ; = F a. N 
END; 

END* 

L ?Os£3R:=COUNT 
ENDT 



. -J$C 
* 

* 



s) ; 



BRLIST ; 
L DO 



NT: =COUNT+ 1 ; 

S B R a . INCLUDED: = TRUE; 



ERLIST; 

L DO 

INCLUDED : =F ALSE ; 
EXT_S BR; 



'*SBRCONST; 



<*" 



(* L_SBRERKS 
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if if 



( 






I 





A — — 

* DIVIDE: DIVIDES A SEG IN HALF AND RESETS FJMF 

* AND SBR POINTERS. 

• — * •• — — ' — — — — — — — — — — — — — — — — — — — — — — > — — — — — — — — 

BCCEDURE DIVIDE (BD ILT CODE: COD EPTR ; 

VAR CURTP:T3LPTR) ; 

VAR INSERT ‘.TELPTR ; 

S,F: TBIETR; 

N E W_S T CP : I NT E G ER ; 

r $ 

r* SETT: ENSURES THAT DIVIDE CALCULATED STOP IS 
l'* NOT SPLITTING A 1,2,3 PART INSTRUCTION. 

( $ 

PROCEDURE SETT (BUILT CODE: CODEPTR ; 

VAR NET? STOP : INTEGER) ; 

VAR F, T: CODEPTR; 

BEGIN 

P:=BUIIT CODS: 

WHILE (Fc3. AAD DR <= NEW STOP) DO 
BEGIN 
T : =P : 

IF (P3.KEY = 76) OR (Pol. KEY = 71) THEN 
F:=P3.SEQ3.SZQ 
ELSE 

ADVANCE CODEPTR (P) ; 

END; 

IF (To). KEY = 76) OR (To). KEY = 7 1) THEN 
T:=T3.SEQ3. SEQ; 

NEW STCF:=T3. AADDR-1; 

END; “ (* SETT 

(* 



* * 

(* FIND IN SSBRLIS T: DIVIDES UP THE SBRLIST *) 

(* BETWEEN THE OLD AND NEW SEGMENTS *) 

/ * *< 



RCCSDURE FIND IN SSERLIST ( V AR CU RTP , S : T BLPTR ; 

NEW STOP: INTEGER) ; 

VAR LIMIT: INTEGER; 

T :TBL FTR ; 

EEGIN 

LIMIT: = NEW 5T0P+1 ; 

I? CU RTFS. T3RL 1ST <> NIL THEN 
BEGIN 

S : =CURT?3. S3RLIST: 

IF (Sal. NEXI SBRONIL) AND(Sa). FROM 

< LIMIT) THEN 

BEGIN 

S:=S3. NEXT SBR; 

T:=CURTP3. "SBRLIST; 

WHILE (S3. FROM<LIMIT) AND 

? S3 . NEXT SBRONIL) DO 
BEGIN 

S: = S3 .NEXT SBR; 

T: =T3.NSXT~S3R; 

END; 

IF S3. FROM >=LI MIT THEN 
T3.NEXT SBR : = N IL 
ELSE 

S : =N IL 

END 

ELSE 

BEGIN 

IF S3. FROM >= LIMIT THEN 
CURTP3. SBRLIST: =NIL 
ELSE 

S : =N IL 
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* * # 



END; 

END 

ELSE 

S :=N II ; 



END; (* FIND IN S3 EEL 1ST *) 

(* ' *) 



* 

(* FIND INSFJMPLI 

* OLT AND NSW 


PROCEDURE FIND_IN 

VAR LIMIT JINTSGE 
T :T3LPTR; 
BEGIN 

LIMIT : = NEW STO 
IF CURT Pa. F JU 
BEGIN 

F ; = CURTP3. 
IF (FS.NEXT 

BEGIN 
F:=F3. 
T:=CUR 
WHILE ( 

beg! 

F: 
T: 
END; 
IF Fa). 

TS.N 
ELSE 
F : = N 

END 
ELSE 
BEGIN 
IF FS. 

CURT 

ELSE 

F:=N 

END; 

END 

ELSE 

F ;=N II ; 

END; 

<* 

BEGIN 

NEW_STOP : = ({(CUR 

SETT ( BUI LI CODE, 
NEW (INSERTTTABLE 
INSERTS. N ESI: =CU 
INS SR la). START AD 
INSERTS. STOP 7IDD 
FIND INSSERLTST ( 
FIN D” INSFJMPLI3T 
INSERTS. SEELIST; 
INSERla). F JUMPLI 
INSERTS. TlELELIS 
CURTP2. TAELELIST 
CUR TPS. STOP A DDR 
END ; 

<* 

3EGIN 

CUETP ; =SBRTPS.TA3L 
REPEAT 



ST: DIVIDES FJUMPLIST EETWEEN 

SEGMENTS. 



■-*) 

* 

* 

• -* 



SFJMPLIST (VAR CURTP,F:TBLPTR; 

NEW STO? .'INTEGER) ; 

H; 



P+1 ; 

MPLISTO NIL THEN 
F JUMPLIST: 

FJUMPONIL) AND (FS .JUMP ADD R FR 
< LIMIT) THEN “ 

NEXT FJUMP; 

TPS . F JUMPLIST; 

FS. JUlUP ADDRFRCLIMIT) AND 
FS. NEXT~F JUMPO NIL) DO 
N 

= FS . N EXT FJUMP; 

=T3. NEXT^F JUMP; 

JUMP ADDRFR >=LIMIT THEN 
EXT_TJ UMP : =NIL 

IL 



JUMF ADDRFR >= LIMIT THEN 
PS. F~ JUMP LIST: = NIL 



IL 



(* FIND_ INS FJU MPLIST 



TPS. STOP ADDR-CURTP3. START ADD 
+ 1 ) Dl V 2) ) +CURTPS. START AD 
NEW STO?) ; 



-:j 

R 

DR; 



P.T 



..TPS. NEST : 

DR : =NEW STOP+ 1 ; 
R:=CURT?S. STOP ADDR; 
CURTP , S , N E W STUF); 
(CURTP,F, Nil STOP) ; 

= S; 

ST 2 — F • 

T: =CURT?3. TABLE LIST; 
:=INSERT; 

:=NEW STOP; 



(* DIVIDE 



-:j 



ELIST; 
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CALCULATE (CURT?, LENGTH); 

IF (C URT? a. NEST = 0) THEN 
BEGIN 

LENGTH SBRBRKS (CURTP, L PCSSBR) ; 

IF LENGTH+L EOSSER > LIMIT THiN 
DIV ICE ( EUI LT CODE, CURTP) 

ELSE 

BEGIN 

CLEAN (CURTP, DELETE) : 

DELETE:=0; (^CALCULATE HAS THIS COVERED*) 
CORTPa). LENGTH :=LENGTH- DELETE*? JUMECONST; 
IF CURTPS. TABLELIS T= NIL THEN 
CURTPa). LENGTH:=CUR'T?a). LENGTH-F JUMPCONST 

+ S 3RC0NTC0N SI ; 

CURTP :=CURTPS. TA3L ELI ST; 

END 



I 



END 

ELSE 

BEGIN 

CLEAN (CURTP, DELETE) ; 

D EL E T E : = 0 ; (* CALCULATE HAS THIS COVERED *) 

C UR TP a . LE NGT H : = LENGT H- DELET E*F JU MPCON ST ; 

CURTP : = CURTP a). TABLELIS T 
END ; 

UNTIL (CURTP = NIL) ; 

END; (* SET LENGTH *) 

* * ) 

EG IN 

CURCP: = BUILTCCDE ; 

SESTP; = HDRPT R ; 

WHILE SBRT? <> NIL DO 
EEGIN 

PROCESS SERSEGT BL (CURCP, HDR PT R , S3 RT P) ; 

SET LENGTH (BUILT CCDS , 53 R T? , LI MIT) ; 
SBRTP:=SERTPa».S 3ELIST 
END; 



END; 

eIgin 

IF EUILT CODE CCUNT<= LIMIT THEN 
EEGIN “ 

N EW (SEGT3L , TABLE) ; 

SEGTBLa). TAG;=TABLi; 

SEGTBLa). TA ELELIST : = NIL; 

SEGTBLS. SBELIST: = NIL ; 

S EGT BLa). COALESCED :=TRUE; 

SEGTBLa). INCLUDED: =FALSE ; 

SEGTBLa). START ADD R : = 0 ; 

S EGT BL 3. STOP IDDR : = BUILT CODES . SEQa) . KEY ; 
NEWfHDRPTR jTSBLE) : 

HCRPTRd. ST ART ADD R : =0 ; 

HDRPTR3. STOP IDDR:=EUILT CODE COUNT; 
HDRPTRD. NESTT=0; 

HERPTRS. TA ELELIST :=NIL; 

HDRPTRS. SBRLIST:= NIL; 

HDRPTRS.F JUMPLIST:=NIL; 

HDRPTRS. COALESCED :=TRUE; 

HERPTRS. INCLUDED: =FALSE ; 

HCRPTRS. LENGTH :=BUILT CODE COUNT+1; 

S EGT BLS.T A ELELIST : = HDR?TR;~ 

END 

ELSE 

EEGIN 

BLD PRIMSEGTEL (BUILT CODE , H DR PT R ) ; 
ELD“ADVSEGTEL ( HDR PTRf; 

BLD~FI NSEGTEL ( BUI IT COD E, H D RPT R , LIMIT) ; 



(* BLD FINSEGTEL *) 
~ *) 



END: 



S EGT BL := HDFPTR 
END ; 



(* BLD_SEGT2L *) 
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* * -tfr * * 



COALESCE: COALESCES THE SSG TABLE MAKING GOOD BEK. *) 
ONLY LOSS OF EFFICIENCY IS WITH CROSS SEGMENT * 

FCBWAED JUMPS. THESE MAY PRECLUDE THE COMBINING *) 
OF A SEGMENT EECAUSE OF ADDED CODE FOR THE JUMP * 



PROCEDURE CO A L ESCE ( V AR SBR : T ELPTR; LIMIT : INTEGER; 

VAR GOOD SEGMENT: EOOLEAN; VAR S3 RIN VN EST : INT EGER) ; 
VAR CURSEG : TBLPTB ; 

!* SEES DM: SUMS ALL S3R S ON A 53RLIST. SETS INCLUDES *J 
(* TRUE. ADDS SBRCONST IF SBRBREAK IS ENCOUNTERED. *) 

(* 

PROCEDURE 5 BRSUM (VAR S3 RLST: TSLPTR; VAR SUMS3R : I NT EGER) ; 
VAR SEEL, SBR: TBLPTR; 

BEGIN 

SERI := SB RLST ; 

WHILE S BRLO NIL DO 
BEGIN 

SBR: =SBRL3.SER; 

CASE SBR2.TAG OF 
T A EL E : 

BEG I N 

ifVsers.coalesced) then 

IF NOT (SBR2. INCLUDED) THEN 
BEGIN 

SBR a. INCLUDED :=T RUE; 

SUM SBR: =SUMSBR+S3R3.LENGTH 

-SBPCONTCONST ; 

IF SBR3. SBRLISTONIL THEN 

SBRSUM(SBRa.SERLIST,SUMS3R) ; 

END; 

END ; 

SBRBREAK: 

SUMS ER: = SUM SBR + SBECONST ; 

END: 

SBRL: = SBEia. NEXT SBR; 

END; 

END; (* SERSUM *) 

(* * 



(* *) 

1 * SEESUKLINK: ADDS ALL SBRS BELOW AN INVOKE NODE. *) 

* IT DOES NOT CO THE WHOLE SBSLIST. THAT IS SUM5ER 

CCECURE S BRSUML INK (VAR SBRPTR: TBLPTR; VAR S UMT: I NT EGER) ; 
VAR PTR: TBLPTR; 

BEGIN 

PIE :=S BR PTR3 . SER ; 

CASE PTRS. TAG OF 
T A BL E * 

IF ’(PTR3. COALESCED) AND(?TE3.TABLELIST = NIL) THEN 
IF (NOT (PTRa. INCLUDED) ) THEN 
BEGIN 

PTB3.INCLUDED:=TRUE; 

SBBSUM (PTR3. SERLIST ,S UMT) ; 
SUKT:=SUMT+FTRa.LENGTH-SBRCCNTCONST; 

END 

ELSE 

IF (PTRa. CO ALESCED) AND (NOT (PTR3. INCLUDED^ 

S U MT := 50 ST+ PTRS. LENGTH-SBRCONT CONST; 
SEEBREAK: 

SUMT : = SU MT ; 

END ; 

END; (* S3RSUMLINK *) 

(* * 
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* CHK SEGSIZE: VERIFIES THAT THE SEGMENT OF NEST 0 

* TOGETHER WITH ITS REQUIRED S 3R INVOKES IS WITHIN 
(* MEMORY CONSTRAINTS. IF IT DOSS NOT FIT THEN A 
(* SEE3REAK IS INSERTED. THIS ROUTINE ASSUMES THAT 
(* THE SEGMENT LENGTH IS OK. SET LENGTH ENSURES THIS 
I* IF A SB R IS NOT COALESCED THIS ROUTINE MUTUALLY 
(* RECURSES WITH COALESCE. DURING ITS CHECK, IT 

(* WILL INCLUDE AND RESET INCLUDES. 



BOCEEUEE CHK SEGSIZE(VAR CURSEG : TBLPTR ; LIMI T: I NTEGE 
VAR SEG, S5R7SB FL:TBLPTR ; 

CHKLENGTH, SUMSBR: INTEGER; 



(* INSERT S3RBRK: INSERTS THE SBRBREAK NODE 

(*— — - — — — — — — — 

PROCEDURE INSERT SBRB EK (SERNOD2 :T BLPTR) ; 

VAR INSERT , CUR7FWD: TBLPTR; 

EEGIN 

CUR: =S ERNO EE; 

IF CURE). SEES. TAG <> SBRBREAK THEN 
BEGIN 

?WD:=CURa>. SBR : 

NEW (INSERT, SBRBREAK) ; 

I N SERTa .TAG: = SBREREAK; 

INSERTS. SBRZ: = CURa).SBR; 

CURE). S ER: = INS ERT ; 

END; 

END; (* INSERT_SERBRK 

Iegin 

SEG : =CUR SEG ; 

WHILE SEGONIL DO 
BEGIN 

CHKL ENGTH: = SEGa> .LENGTH; 

IF S EGa) . 1ABLELI ST= NIL THEN 

CHKLENGTH: =CH KL ENGTH-S 5 RCONTCON ST ; 

IF SEG a). SERLISTONIL THEN 
BEGIN 

SBRL: = SZGa>. SBRLIST; 

WHILE 33RLONIL DO 
3EGIN 

SEE: =SB RLS .SBR; 

CASE SB Ra). TAG OF 
TABLE : 

BEG IN 

I F ( S 3 R a) .CO ALES CED=FALSE) THEN 
COALESCE (SBR, LIMIT, 

GOOD SEGMENT, S3RINVNEST) 
IF S ERa) . TAB LEXIS TO NIL THEN 
BEGIN 

INSERT S5R3RK (S3 RL) ; 

END; 

S UMS ER : =0 ; 

S ERSUMLINK (S3RL, SUMSBR) ; 

C RKLZNGTH: =CHKLENGTH+SUMSBR; 

I? ( C H K L Z N G T H > L I M I T ) THEN 
BEGIN 

INSERT S3R3RK (SBRL) ; 

CHKLENCT H : =CHKL ENGTH-S UMS ER ; 
RESET INCLUDED (SEG5>. SERLIST) ; 
END; 

END ; 

SBRBREAK : 

END; 

SERL : =S 3RL2. NEXT S3S; 

END; 

END; 
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* * * # * ^ -if * -M- * 



td * * «* * * 



<*- 



END 



I? SZGS. S28LISTONIL THEN 

RESET INCLUDED (SEGS .3BRLI3T) ; 

DIAGS NZSI1SBE3RK (TEM?FILE,SZG,GOOD SEGMENT) 
SEG : =5EGi .TABLE LIS T; 

END; 

(* CHK SEC-SIT 



--»i 



COMBINE: TAKES THE CHECKED SEGTABLE AND COMBINES * 

IT INTO A MAXIMIZED COMBINATION OF SEGMENTS AND * 
SBR . BASICALLY, IT MERGES THE ADJACENT SEGMENTS * 
IF THEY CAN EE MERGED. * 

if 

CZDUFE COMBINE (VAR C URS EG : T3LFTR ; LIMIT: INT EGE3) ; 

V A S SUMSBRF,SU MSBRC, S UMFWD , SUM C 'JR, SUMTOT: INTEGER ; 

CUB, FWD: T3LETR: 

D ELS UMS3RZ ,EELSUMFJMP: INTEGER; 



if * ) 

* MERGES: MERGES ADJACENT SEGMENTS TO INCLUDE THEIR*) 

* RESPECTIVE FJUMP LISTS AND S3RLISTS . IT THEN *) 

* USES CLEAN TO REMOVE ANY DUPLICATE JUMPS/SEES * 

* USES CLEAN'S DELETE FACILITY TO READJUST LENGTH*) 

* THE LENGTH FOR THE S3RBREAK CODE IS NOT * 

* INCLUDED IN SEGMENT LENGTH, ROOM IS LEFT. * 

* *) 



PROCEDURE MERGES (VAR CUR , FWD: TBLPTR) ; 

VAR SB ST AIL , J MPT AIL : TBLPTR; DELETE : INTEGER ; 

BEGIN 

IF FWDS.F JUMPLISTONIL THEN 
IF CURS7F JUMPLISTONIL THEN 
BEGIN " 

JMPTAIL: =CURd). F JUMPLIST; 

WHILE JMPTA ILS ."NEXT FJUMPONIL DO 
JMPT AIL: = JMPTAILa)7 NEXT FJUMP; 

JMPT AILS. NEXT FJUMP: = FWDE5. F JUMPLIST; 

END 

ELSE 

CURD. F J-OMPLIST: =FWDS.F JUMPLIST; 

IF F WD S. SBR IIS TO NIL THEM “ 

IF CURS . SERL 1ST ON IL THEN 
BEGIN 

SBRT AIL: =C0 33. SERLIST ; 

WHILE SBRTA ILa) .NEXT S3RONIL DO 
SBRTAIL: =SBRT AILS .NEXT SBR; 

SBRT AILS .NEXT SBR : = F W DS . SBRLI ST ; 

END 
EL S E 

CURS. SERLIST: =FWDS. S3RLIST ; 

CUES. STOP AEDR : = F WDS .STOP ADDR; 

C URS . T ABLE! 1 1ST : = P WDS . TABLE LIST ; 

CURS. NEST : =0; 

DELETE : — 0 ; 

CLEAN (CUR, DELETE) ; 

CURS*. LENGTH :=C URS 1 LENGTH* FWDS. LENGTH- ( (DELZTE+1 )* 

FJUMPCONST) ; 

CISPOSE(FWC, TABLE) ; 

END; (* MERGES *) 

(* *) 
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— _ — — _ — — — ^ . — _ _ ^ _ _ _ . _ . _^ . _ - ._ _ jjg ^ 

(* MCE SUMTOTFJMP: SIMULATES THE COMBINE 0? THE FJMP*) 
(* THIS IS A PREDICTION I? ADJACENT SEGMENTS WERE *) 
(* MERGED. *) 

* j 

PROCEDURE MOD SUMTOTFJMP (CUR, F W D : T3L PTR ; 

VAR DSLSUMFJMP: INTEGER) ; 
VAR P, T : T3L PTR ; FCOUNT : INTEGER ; 

EEGIN 

FCOUNT :=0 ; 

P : =C UR 3. F JUMPLIST; 

WHILE POHIL DO 
BEGIN 

IF P3 . JUMP ADDRTO<=FWDa> .STOP AD DR THEN 
FCOUNT: = ?CO UNT + 1 ; 

T : =?W D<2. F JUMPLIST; 

WHILE TOTTIL DO 
EEGIN 

IF Fa). JUMP ADDRTO = To). JUMP ADDRTO THEN 
FCOUNT ; =7CQUNT+ 1 ; 

T:=Ta). NEXT FJUMF; 

END; 

P: =?a>. NEXT FJUMP; 

END ; 

DELSUMFJMP:=(F COU NT+ 1) *FJUM?CONST; 



END; (* MOD SUMTOTFJMP *) 

(* = *) 



£ ___ _ __ _ _ _ £ 

* MOD SUMTOTSER: SIMULATES THE CHANGE TO TOTAL LEN * 

* EICAUSE OF THE MERGING OF ADJACENT SEGMENTS. * 

$ — — — — — — __________________ — — — _# 



Procedure mod suhtotsbr (cur ,fwd: tblptr; 

VAR DELSUMSBRZ:INTEGER) ; 
VAR P,T,FP,TT:TBL?TR; SCOUNT : INT EG ER; 

EEGIN 

SCC'JNT : = 0 ; 

F :=CUR3. S EFLIST; 

WHILE r<> Nil DO 
EEGIN 

T : =F WD a . SB RLI ST; 

WHILE TON XL DO 
3EGIN 

PP :=Pa).S3R; 

IF P?a) . TA G = SBRBRSAK THEN 
EEGIN 

jm • — m 5. s ER * 

IF’TTal'.TAG ' = S3R3RSAK THEN 
IF PP3.S3R2 = TT3. SBRZ THEN 
S COUNT; =SC0UNT+1 ; 

END; 

T : =T5) . NEX T SBR; 

END ; 

P ; =P5) . NEXT S3 R ; 

END; 

DELSUMSERZ ; =SCO UNT*S3RC0NST ; 

END; (* MOD SUMTOTSER *) 

<* “ * 

BEGIN 

CUR: =CURSEG; 

DIAGS NEST1LENGTHCHK (TEMPFILS, CUR, GOOD SEGMENT); 
SUMT0T:=0: 

SUMSERC ; =0 ; 

IF CUR5). SBRLISTONI L THEN 

SERSUM (CURal.SBRLIST, SUMSERC) ; 

SUMCUR:=CURa).LENGTH + SUMSBRC; 

WHILE (C URa> . TABLELI STONIL) DO 
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I 






















EEGIN 

FWD : =C UR 2 . TA BL2 
SUMS ERF :=0; 

IF FSD3. SERLIST 
S BRSUM (FWD3.S 
SUMFWD :=FWDo).L3 
SUMTCT : = SUMC UR+ 
MOD SUMTCTFJ MP ( 
HOD“SUMTCTS3R(C 
SUMTCT: = SUMTOT- 
IF SUMTOI<=LIMI 
BEGIN 

MERGES (CUR, 
CURE) . LENGTH 
SUMCUB:=SUM 
END 
ELSE 
BEGIN 

RESET IN CL U 
RESET~INCLU 
CUR : =TWD; 
DIAGS_NEST1 

SUMCUR: = CUR 
SUMSERC: =0: 
SBRSUK (CUR3 
SUMC DR:=SUM 
END; 

SU M T OT : = 0 ; 

END; 

IF C0H3. SBRLISTONI 
RESET INCLUDED (CU 
CURSEG 37 CO A L ESCED: = 
END ; 

<* 

BEGIN 

CU5SEG:=SBR; 

SERIN VNEST:=SBFINVNES 
DIAGS_NEST6SBRINVCHK ( 

CHK SEGSIZE(CURSEG,LI 
CCM"EINE(CUESEG, IIM IT) 
SERINVNEST:=S3RINVNES 
END; 



LIST; 

ONIL THEN 
3RLIST,5UMSBRF) ; 
NGTH+SUMS3RF ; 

S U M FW D • 

CUR,FWD,DELSUMFJMP) ; 

UR, FWD ,D£LSUMSB RZ) ; 
DELSUMFJM P-DELS UKS BRZ ; 

T THEN 

FWD) ; 

; =C UR3. LENGTH- DELS UKS BRZ; 
TOT ; 



DED (FWDd. SBRLISI) ; 

DED (CURi). S3RLIST) ; 

LENGT.HCHK (TEMPFILE ,CU R , 

GOOD SEGMENT) ; 

2. LENGTH; 

.SERLIST, SUMSBRC) ; 

CUR+SUMSBRC; 



L THEN 

83. SERLIST) ; (* ALL INCLUDES RSI*) 

TRUE; 

(* COME INE 



T+ 1 ; 

TEMPFILE, CURSEG, GOOD SEGMENT, 

SBRITTVNEST) ; 

MIT) ; 



T-1 ; 



(* COALESCE * 



-I 
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* 



/*======== == = — == = = = = = === = = = == = = = = = = == = = = = == == = = = = = = = == = =* 

(* INSTRUCTION S: P HINTS OUT THE SEGMENTED CODE TOGETHER * 

r* WITH OTHER INFORMATION TO USE THE SEGMENTED CODS. * 
(* DCES THIS BY FIRST CHECKING THE SEGMENT TABLE AND * 

(* ASSIGNING A MEMORY MODULE NUMBER TO SPECIFIC LCCA- * 

(* IICNS IN IHE TABLE WHERE S 5R BREAKS OCCUR. AN * 

(* IMPLIED ASSIGNMENT IS MADE TO THE FIRST S5R AS A * 

'* START POINT. OTHERS ARE INCLUDED IF THERE IS A ER K* 

(* LEADING TO IT. ONCE MODULES ARE ASSIGNED THEN CODE*) 

(* WITH PROMPTS ADDED ARE COPIED FROM THE ORIGINALS. *) 

(* THESE COPIES ARE THEN PRINTED OUT. *) 

i * = ==== = === = = == = = ======= ======== = = = = ======== = = = = === = ===*', 

PROCEDURE INSTRUCTIONS {VAR OUTFILE, MESSAGEFILS, 

T EMPFILE: TEXT ; 3UILT CO DE : CO D EPTR ; 
SEGTEL: TBLPTR: PART NUM: INTEGER ; 
PARTITION: BEAL; GOOD SEGMENT : BOOLEAN) ; 
VAR K E A E_M E MCDUL E : T3LPT R ; 

! $_ _ _ _ _ _ __ _________ i 

* BLC MEMODULNOCES: BUILDS THE MEMODULES BASED ON THE*' 
* EEEAKS ENCOUNTERED IN THE SEGTBL *) 

$ — — - — 1 

PROCEDURE BLD MEHCDULEHODES ( SEGTBL: TBLPTR ; 

VAR HEAD ME MODULE : TBLPTR) ; 

VAR TAIL MEMODULE, SEG :TBlPTR; 

MEMCOU NT : I NTEG ER; 



^ _ _ _ _ __ _ _ __ _ _ _ _ _ _ _ _ _ _ \ 

* INSERT MEMO DULENOD ES: INSERTS A MEMODULENODE INTO*) 

* THE T5EMOD UIELIST . IT MUST FIRST CHECK TO SEE * 

* THAT IT IS NOT ALREADY ACCOUNTED FOR AS THERE * 

* MAY BE MULTIPLE INVOKES OF THE SAME BREAK. *) 

* * ) 



PROCEDURE INSERT M EMO DUL ENO DSS (SEG T3 L : TBLPTR ; 

VSR HEAD MEMODULE, TAIL M SHOD UL E : T 3LPTR ; 
VAE ME MCOUNT:INTEGER) 

VAR INS E RT : T ELPT R ; 



I* *) 

* NOT IN MO DDLELIS T : CHECKS TO SEE IF IN LIST *) 

j * - - -- *) 

FUNCTION NOT IN SOD UL ELIST (S 5GT 3L , HEAD MEMODULE 

“ ” “ : TBLPTR): 

EOCLS AN ; 

VAR S : TBLPTR ; 

BEGIN 

S: =H EAD MEMODULE: 

NOT IN SCDULELI ST: =TRUE; 

IF SOHIL THEN 
BEGIN 

WHILE SONIL DO 
BEGIN 

IF S2.SEGT3LS = SEGTBL THEN 
NOT IN MODULSLIST: =FALS E; 

S:=S5>7N E7T ; 

END; 

END; 

END; (* NOT IN MODOLELIST *) 

<* *) 

BEGIN 

IF MOT IN BCDULELIST (SEGTBL, HEAD MEMODULE) THEN 
EEGITJ “ 

NEWfINSERT, ME MODULE) ; 

I NSERTS.T AG: = MEMODULE; 

I N 5E R T 2 . ME M NU M : = ME MCOU N T ; 

M EMCOU NT ; = MEM COUNT* 1; 

INSERTS. OFFSET: = -SEGT3La). START AD DR ; 

INSERTS. HIGHO FFSET: =- (SEGTSLS). "START ADDR DIV 

100 ); 
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INSERT2.LOWGFFSZT:=-(SEGTBL3. START AD DR 

100*INSERT5>.HlGHOFFSET) ; 
INSE ET3.RETUR NCODE NEEDED : =FALSE; 
INSERT3.C0DELIST:=3IL; 

INSERTS. SEGTBLS: =SEGT3L ; 

I NSE RTS. NEXT: =HIL; 

IF HEAD MEMODULE = NIL THEN 
HEAD 1EM0D0LE: =INSERT ; 

IF T All MEMODULE <> NIL THEN 
TAIL flEMODULSal.NEXT: =INSERT; 

TAIL ME MODULE :=INSERT; 

END; " 

END; (* INSERT MSMODUL ENODES *) 

(* " * 



/* * } 

(* BECURSS BLD MEMODU LENODES: IS THE RECURSIVE PART *) 
(* CF THE BLl MEMNODE ROUTINE. GOES WITHIN THE * 
(* THE S3RFIEST THEN DOWN THE SBRLIST. *) 

(* RECURSION IS USED TO TRAVERSE THE SEGTBL. *) 

1 — — — — _ _ __ _ ________ _ _ _ _ _ _ _ \ 

PRCCEEURE RECURSE BLD MZMNODES ( SEG : TBLPTR ; 

VAR KE1D MEMQDULS , T AI L MEMODULE : TBLPTR ; 

VAR MEMCOUNT '.INTEGER) ; 

VAR SEG SBR, SER, SBR L:TBLPTR; 

EEGIN “ 

SEG SBR: = SEGa). TA3LELIST; 

WHILE SEG SERONIL DO 
EEGIN “ 

INSERT MEMODU LENODES (S EG SBR, HEAD MEMODULE, 

TAIL MEMO DUEE , MEMCCUNT) ; 
SEG SB R : = SSG SBRS. TABLELIST; 

END; ” 

SEG SBR: =SEG: 

WHITE SEG SERONIL DO 
BEGIN ” 

IF SEG SBR3.SERLISTONIL THEN 
BEGIU 

S B EL: = SEG S3RS. SBRLIST; 

WHILE SBR TO NIL DO 
EFGIN 



SB R: = SBR L3 . SBR ; 

IF SB Ra) . TAG = SBR BREAK THEN 

INSERT MEMODULSNODES (SBRa). SERZ, 

HEAD MEMODULE, TAIL MEMODULE , MEMCCUNT) ; 
IF S3 S3. TAG = SBRB3EAK THEN 
SBR : = S3Ra).SBRZ; 

RECURSE BLD MEMNODES (SBR, 

HEAD HEM03ULE ,T AIL MEMODULE, 

MEMCOUNT) ; 

SBRL: =SBRLcD.NEXT SBR; 

END; 

END ; 

SEG S BE : = SEG SBR3 . TA3L ELIST ; 

END ; " 

END; (* RECURSE 3LD MEMODULENODES *) 

(*- " " *) 

BEGIN 

BEAD MEMODUL E :=NIL; 

TAIL”ME MODULE :=NIL; 

MEMCOUNT := 1 ; 

SEG : =SEG TBL ; 

INSERT MEMODULENODES (SEG, HEAD MEMODULE, 

TIIL MEMODULE, MEMCCUNT) ; 
RECURSE ELD MEMNODE S (S EG , HEAD ME30DULE, 

TlIL MEMODULE, MEMCCUNT) ; 
END; (* 3LD MEMODULENODES *) 

(* “ *) 
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* ■* * * 



w* 



BID MEMO DDL EC CDE: THIS ROUTINE BUILDS THE CODE FOR * 
THE MEMORY MODULE CODELISTS. IT WILL JUSTIFY ALL * 
THE ADDRESSES AND ADD EREAK CODE. * 



PROCEED RE BLD H EHCDU LEC ODE (BUILT CODS: CODEPTR ; 

VAH HEAD MEM0DUL2 :TELF 



VAR CURMEM :TBLPTR; 



- 

TR) 



! 



r* — — 

* EID A MEMORY: THIS ROUTINE INITIALIZES THE 

* RECURSIVE PROCESS THAT WILL BE DONE IN THE 
t* FORM MEMORY ROUTINE. 



* 

* 

* 

-z 



PROCEDURE ELD A MEMORY (BUILT CO DE : CO DE? TR ; 

_ " "VAR HEAD MEMODULE :T ELPTR ; 

~ CURMEM: TB LPT R) ; 

VAR ADDRESS S : INTEGE R ; 

CODE H.CCDE T: T BLPTR ; 

SEG : TBLPTR;" 



( * *) 

* FORM MEMORY: BUILDS A COMPLETE MEMORY MODULE * 

* COUE COMPLETE WITH BREAK CODE AND JUSTIFY. * 

I 1 * ROUTINE RECURSES ON EACH S3R ON THE SBRLISTS * 

— — — — * i 

PROCEDURE FORM MEMORY (BUILT CODE:CODEPTR ; 

~VAR HEAD MEMODULE, CURMEM, SEG, CODE H, 

CODE T : TELPTRj 
VAR ADDRESSSTINTEGER) ; 



VAR CODE HH ,CODE TT , S ER ,S B R L: TBL PTR ; 

i z — — * 

* PROCESS SEG: TAKES CARE OF ONE SEGMENT IN THE* 
* SEGMENT TABLE'S WORTH OF CODE. * 

* * 



PROCEDURE PROCESS SEG(3UILT CODE : CO DEPT R ; 

VAR HEAD MEMODULE, 
CURMEM:! BLPTR ; Sz!G:TBLPTR; 
VAR CODE HH, CODE TT : T BLPTR ; 
V AR" ADDRESS'S: INTEGER) ; 

VAR START, STOP: INTEGER; 



J * *\ 

* COPY CODE: COPIES CODE FROM A START TO A * 

* SIUE POINT OF THE 3UILT CODE *) 

* 

PROCEDURE COPYCODE (BUILT CODE: CODEPTR ; 

VAR-CODE HH, CODE TT :T ELPTR; 

VAH AD DR SSHS: INTEGER; 
START, STO?:INTEGER) ; 

VAR INSERT, CU RTP : TBLPTR ; 

CURCP: CODEPTR; 

BEGIN 

CURC E : = B UIL T CODE; 

WHILE CURCPSTAADDROSTART DO 
CURCP: =CU RCPS. SEQ; 

NEW j I NSERT , CODE) ; 

INSERTS. TAG :=CODE; 

INSERTS. ABS ADDR : =CU RCPS. A ADDR; 

INSERTS. ADDRESS: =ADDRESSS; 
ADDRESSS:=ADDRESSS+1 ; 

INSERTS. KEY CODE: =CURC?S .KEY; 

INSERTS. SEQ UENTIAL: = NIL ; 

CODS HH: =IN 3ERT; 

CODE"TT:=INSERT; 

REPSlT 

NEW (INSERT, CODE) ; 

CURCP: =CU RCPS. SEQ; 

INSERTS. T AG:=CODE; 
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INSERTS. ABS ADDR: =C URCPS . AA DDR ; 

INSERTS). A BDHESS:=AD DRESS S; 

ADDRESSS: = ADDRESSS + 1 ; 

INSERTS. K EYCODE:=C URCPS. KEY; 

CODE TT3. SEQUENTIAL: -INSERT; 

CO CE~ TT: = INSERT : 

UNTIL 7CURCES. AADDR = STOP); 

CODE TTS. SEQUENTIAL; =NIL; 

END; ~ {* COPYCODE * 

(* * 



J •• . _ _ _ _ \ 

* ADD RETURNCODE: ADDS SBR RETURN CODE TO THE* 

(* Till SEGMENT OF THE INVOKED SBR *) 

# * j 

PROCEDURE ADD R ETURNCODE ( VA R CODE TT : TELPTR ; 

VAR ADDRESSS: INTEGER) ; 

VAR IN SERT tTBLPTR ; 

BEGIN 

CODE TTS.KE YCODE: =STO ; (*INVSBR CHG 2 STC*) 
NEW (INSERT, CODE) ; 

INSERTS. TAG :=CODE; 

INSERTS. ADDRESS: =ADDRESSS; 

ADDRESSS :=ADDRESSS+1 ; 

INSERTS. KEY CODE: =DIS?LAYREGSTORE; (*DIS?LAY*) 
CODE ITS. SEQUENTIAL:=INSERT; 

CODE^TT: =IN SERT; 

NEW (INSERT, CODE) ; 

INSERTS. TAG :=CODE; 

INSERTS. ADDRESS: =ADDR ESSS; 

ADDRESSS :=ADDRESSS+1 ; 

INSERTS. KEY CODE: =RCLIND; (* RCL IND *) 

CODE TTS . SEQUENT I AL:=INSERT; 

CODE"TT:=INSERT; 

NEW (INSERT, CODE) ; 

INSERTS. TAG : = CODE; 

INS EFTS. ADDRESS: =ADDR ESSS ; 

AD DR ESSS : = A DDRESS3+ 1 ; 

INSERTS. KEY CODE: =MANRTNR5G ; (* MAN RTN REG *) 
CODE TTS. SEQUENTIAL: =INSSRT; 

CODE^TT: =IN SERT; 

NSW (INSERT, CODE) ; 

INSERTS. TAG :=CODE; 

INSERTS. ADDRESS:=ADDRSSSS; 

ADDRESSS : = ADDRESSS+1 ; 

INSERTS. KEYCODE: =OP; (* CP *) 

CODE TTS.SEQUENTIAL:=INSSRT; 

CODE~TT: =IN SERT; 

NEW (INSERT, CODE) : 

INSERTS. TAG :=CODE: 

INSERTS. ADDRESS: =ADDR ESSS; 
AnDR'c^R-sADDRESSS+l • 

INSERTS. KEY CODE: = 30-*-MANRTN REG ; (*+ MANRTNREG*) 
CODE TTS.SEQUENTIAL:=INSSRT; 

CODE^TT: =IN SERT; 

NSW (INSERT, CODE) ; 

INSERTS. TAG :=CODE; 

INSERTS. ADDRESS: =ADDR ESSS; 

ADDRESSS :=ADDRESSS+1 ; 

INSERTS. KEY CODE: =RS; (* RUN/STCP *) 

CODS TTS . SEQUENTIAL: = INS ERT ; 

CODE'TT: =IN SERT; 
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# # 



CODE ITS. SEQUENTIAL 
END; 

(* 



= N I L 



(* ADD_RSTUR NCO DE 



s-:| 



— — — — *“ • • — — — — — — — -• — ■ — — — ^ 

ACDCOEE S3R3RK MARKINVOKED: ADDS CODE FOR A* 

SBRERK AND WILL MARK THE INVOKED RTN FOR * 
MANUAL RETURN CODE * 

— — — ________ — -# 

'ROCEDURE ADDCODS SBRBRK MARKINVOKED 

(VSR HEAD” ME MODULE , C'J RMEM :TELPTR; 
SEG; T3L7TR ; VAR CODE TT: TELPTR; 

VAR ADDRESS'S: INTEGER) ; 
VAR INSERT. SBR, SBRL; TBLPTR; 

L3IA DDR: INTEGER; 

/ $ — — — — — — • — _ * _ — —— — — —— — __ ^ 

(* FIND LBL: FINDS THE LABEL FROM A GIVEN *) 

J* ADDRESS USING THE BUILT_CODE LIST *j 

FUNCTION FIND LBL (BUILT CODE : CO DEPT R ; 

ADDRSSS:INTEGER) : INTEGER; 

VAR C :CODSPTR; 

EEGIN 

r*=FHTTT rnnF* 

WHILE CS7 AADD&OADDRESS DO 
C:=CS. SEQ; 

FIND LEL: =CS .SEQS. KEY ; 

END; ~ (* FIND LBL *) 

<* * 



/ * — — # \ 

(* GENCCDSSBR: ADDS CODE FOR A BRK S ER INVOK*) 

/ _ ______ __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 

PROCEDURE GEN CO DES3R ( V AR CODE TT: TBLPTR; 

HEAD MEMO DU LE, CUR MEM , S ER : TBLPTR ; 

VAR ADDRESS S: INTEGER) ; 
VAR RELADDR , HUNDREDS, TENS, UNITS: INTEGER; 

MEMPTR : TBLPTR; 

BEGIN 

MEMPTR :=HEAD MEMODULE; 

WHILE (MEMPTR a). SEGTBLS OS BRS.SBRZ) CO 
MEMPTR: =MSMPTRS. NEXT; 

RELADDR : = SBRS . S6RZ S . START ADDR+MEMPTRS. 

* p ** opps * 

HUNDREDS: =RELADDR DIV 100: 

TSNS:= (RELADDR- (HU ND REDS * 10 0) ) DIV 10; 
UNITS: =RS L ADDR- (HUN DEEDS * 1 0 0*TE NS * 1 0) ; 

NEW (INSERT, CODE) : 

INSERTS.! AG:=CODE; 

INSERTS. ADDRESS: =ADDRSSSS; 

ADCRESSS: = ADDRESS S + 1 ; 

INSERTS. K EYC0DE: = L3L; (* LEL *) 

IF CODE TT <> NIL THEN 

CODE TTS.SEQUENTIAL:=INSERT; 

COB£_TT: = INS ERT ; 

NEW (INSERT, CODE) : 

INSERTS. T AG: =CODE; 

INSERTS. ADDRESS :=ADDRESSS; 

ADCRESSS: = ADDR ESSS + 1 ; 

INSERTS. KEYCODE:=FIND LBL (* KEY LEL *) 
(3UILT CODS, S3HS.S3R2S. START ADDR); 
CODE TTS. SEQUENTIAL :=INSERT; 

CODE“TT:= INSERT ; 
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NEW (INSER I, CODE) : 

INSERTS.T AG: =CODE; 

INSERTS. A DDE ESS: =ADDRESSS; 

ADCRESSS: = ADDP. ESSS ♦ 1 ; 

INSERTS. KEYCODE: = STO; (* STORE * ) 

CODE TTS. SEQUENTIAL: =INSERT; 

CODE“TT:= INSERT; 

NEW (INSERT, CODE) ; 

INSERTS. T AG: =COD£: 

INSERTS. ADDRESS : = ADDRESSS; 

ADCRESSS: =ADDRESSS+ 1 ; 

INSERTS. KEYCODE: = D IS FLAY REGSTORE; (*DISF*) 
CODE TTS. SEQUENTIAL: =INSERT; 

COD E~T T: = INSERT ; 

NEW (INSERT, CODE) : 

INSERTS. T AG: =CODE; 

INSERTS. A DDR ESS :=ADDRES33; 

ADCRESSS: = ADDRESSS + 1; 

INSERTS. KEYCODE: = OP ; (* C? *) 

CO EE TTS. SEQUENTIAL : =INSERT ; 

CO CE“TT: = INSERT ; 

NEW (INSERT, CODE) ; 

INSERTS. T AG: =CODE; 

INSERTS. ADDRESS :=AD DRESS S; 

ADCRESSS: =ADDRESSS + 1 ; 

INSERTS. KEYCODE :=20+MANRTNREG; {* INCR *) 
CODE TTS. SEQUENTIAL : =INSERT ; 

CODE“TT:= INSERT ; 

NEW (INSERT, CODE) ; 

INSERTS. T AG: =CODE; 

INSERTS. ADDRESS :=ADDRES3S; 

A D CRTs; • = A D DR E + 1 • 

INSERTS. KEYCODS:=CURMEMS. MEMNUM; (* MEM# *) 
CODE TTS. SEQUENTIAL: =INSERT; 

CODE“TT:= INSERT ; 

NEW (INSERT, CODS) : 

INSERTS.T AS:=CODE: 

INSERTS. ADDRESS :=ADDRESSS; 

ADCRESSS: =ADDRESSS+1; 

INSERTS. KEYCODS: = STOIND; (* IND STO *) 

CODE TTS. SEQUENTIAL : =INSERT ; 

CO DE”TT: = INSERT ; 

NSW (INSER T, CODE) : 

INSERTS.T AG: =COi>E; 

INSERTS. ADDRESS : =A D DRESS S; 

ADCRESSS: =ADDR ESSS + 1 ; 

INSERTS. KEYCCDE:=MANRTNREG; (* MAN ETN *) 
CODE TTS. SEQUENTIAL : =INSERT ; 

COCE“TT: = INSERT ; 

NEW (INSERT, CODE) : 

INSERTS. T AG: =CODE; 

INSERTS. A DDR ESS: =AD DRESS S; 
anrpsocc. = a n nR 17 R + 1 • 

INSERTS. KEYCODE: = MEMPTRS. MEMNUM; (* MEM #*) 
COCE TTS. SEQUENTIAL : =INSERT ; 

CODE”TT: = INS ERT ; 

NEW (INSERT, CODE) : 

INSERTS. TAG:=CODS: 

INSERTS. A DDR ESS : = AD DRESS S ; 

ADCRESSS: =ADDRESSS + 1 ; 
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I N SERTS. KEYCODE := DECIMAL; 
COCE TTS. SEQUENTIAL : =INS ERT 
CO CE^TT:* INSERT; 

NE 5* (INSERT #CODE): 

INSERTS. T AG: =CODE; 

INSERTS. ADDRESS :=ADDRESSS; 
ADCRESSS: sADDRESSS+1; 
INSERTS. KEYCODE :=HUND REDS; 
CODE TTS. SEQUENTIAL: =INSERT 
CODE“TT: = INSERT ; 

NEW (INSERT, CODE) : 

INSZRTS.T AG:=CODE; 

INSERTS. A DDR ESS: =ADDRESSS; 
ADCRESSS: =AD DR ESSS + 1 : 
INSERTS. KEYCODE :=TE NS ; 

COCE TTS. SEQUENTIAL: =INSERT 
C 0 CE”TT: = INS ERT ; 

NEW (INSERT, CODS) ; 

I N SERTS. T AG : =CODS ; 

INSERTS. ADDRESS :=AD DRESS S; 
ADCRESSS: =ADDRESSS + 1 ; 
INSERTS. KEYCODE : = UNITS ; 

COCE TTS. SEQUENTIAL: =INSERT 
C OCE“TT: = INSERT ; 

NEW (INSERT, CODE) : 

I N SIiRTS. T AG : =C0D5 ; 

INSERTS. ADD RES S:=AD DRESS S; 
ADCRESSS: =ADDRESSS+ 1 ; 

I N SERTS. KEYCODE: = RS ; 

IN SERTS. SEQUENTIAL: =NIL; 
CODE ITS. SEQUENTIAL : = INSERT 
CO CE^TT: = INSERT; 

^ END ; (* 

is GIN 

IF SEGS. SBR LISTONIL THEN 
BEGIN 

SERL : =S EGS . SBRLIST; 

WHILE S BRLONIL DO 
3EGIN 

S3R :=S2RLS. SBR; 

IF SBRS.TAG=S3RBREAK 
G ENCODSSBR (CODE TT, 
CURHEM, 

SBRL:=SBRLS.NEXT SBR; 
END; 

VN C * 

END; ‘ ’ (* ADDCODE_SBR3RK 

(* 



(* • *) 
(* HUNDREDS *) 
(* TENS *) 

t 

(* UNITS *) 

» 

(* R/S *) 

t 

GENCODE_S ER *j 
THEN 

HEAD MEMODULE, 
SBR,3DDRESSS) ; 

MARKINVOKED *) 
" *> 
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* * * 



*) 

J OSTIFY_CODE : SETS ALL THE JUMPS AN E ADDPS * 

; ROC EDUR E JUSTIFY CODE ( S EG , CURMEM : TBLPT R ; 

VAR CODE HH : IBLPT R) ; 

VAR T , F .JMPTS : TBLPTR; 

DE I ADDS, R ELADDR , ABS ADDR : INT EGER ; 



* — — — — — — # 

* ADVANCE CODETSL: ADVANCES THE CODEPTRS * 

* OF THU 1, 2, AND 3-STEP INSTRUCTIONS. * 

ROCEDURS ADVANCE CODET3L (VAR F:TBLPTR); 

EEGIN 

IF Fa). KEY CODE IN STEP 3 THEN 

F:=Fa).SEQUENTIALa).SEQUENTIA La). SEQUENTIAL 

3. SEQUENTIAL 

ELSE 

IF Fa). K EYCODE IN STEP 2 THEN 
F: =Fa) . SEQUENTI ALa) .SEQUENIIAL3. 

SEQUENTIAL 

ELSE 

IF Fa) . KE YCODS IN (STEP 1+(.71,76.)i 
THEN F:=F3. SEQUENTI AlTa). SEQUENTIAL 
ELSE 



F: = Fa>. SEQUENTIAL; 

END; (* ADVANCE COCETEL * 

( * * 

3SGIN 

F : =CCCE HH; 

WHILE FONIL DC 
BEGIN 

IF Fa). K EYCODE IN (STEP 3 + STEP 2) THEN 
BEGIN 

IF Fa). KEYCODE IN STEP 3 THEN 
T : =Fa). SEQUENTIAL^. SEQUENTIAL 
ELS E 

T :=Fa>. SEQUENTIAL: 

ABS ADDR : = Td). X EYCODE* 1 00 ; 

ABS ADDR: = ABS ADDR 

+ T D. SEQUENTI ALa). KEYCODE; 
IF SEG3.ST0P ADDR >= ABSADDP THEN 
BEGIN 

DELADDR: = A3SADDR-Ta).ABS ADDR; 
RELADDR: =Ta). AD DRESS + DEL'S DD R ; 

T3. KEYCODE: =RELADDR DIV 100; 
TaJ.SEQUENTIALa). KEYCODE : = 

RELADDR- (1 00* T3 . KEYCODE) ; 

END 
ELS E 
BEGIN 

JMPTR : = 3EGa) . F JUMPLIST; 

WHILE JMPTRa). JUMP ADDRTOO 

A3SADDR DO 

JMPTS: =JM?TRa>. NEXT FJUMP; 

T3. KEYCODE:= JMPTRa). ~ 

JUMP I NT ADD RT Cl ; 
TaJ.SEQUENTIALa). KEYCOlJE JMPTRa). 

JUMP INTADDRTC2; 

END; 

END; 

ADVANCE CODETEL ( F) ; 

END; 

END; (* JUSTIFY *) 

( * *) 
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* * * 



*) 

AEDCODE FJMP: ADDS CODE FOR JUMP EREAK *j 

4 *) 

'ROCEDURE ADDCODE FJM?(VAR HEAD II EMODUL E , CU EM EH , 

SEC, CODE TT : TEIPTR ; 
VAR ADDRESS'S: TNT EGER) ; 
VAR CUB, INSERT, JUMPTR, M EMPTR : T3LPTR ; 

ADEERTOl, ADDDRT02 , MEM ADDDRTO: INTEGER; 

DELTAS AD DRESS: INTEGER ; 

4c — — — — -4c ) 

* GEN JUMPCOEE SETINTADDRS: GENERATES THE * 

* JUMP CODE "AND SETS THE INTADDR FIELDS *) 

* OF THE SEGMENT TA3LE F JUMPLIST. *) 

* INTADDR ARE THE ADDRESSES LOCAL TO THAT*) 

* SPECIFIC PIECE OF CODE (THE PROMPT). *) 

* 4c) 

RCCEDURE GEN JUMPCODE SETINTADDRS 
(VAR CODE TT:TBLPTR; — VAR ADDDRSSS : INTEGER ; 

VAR JUMPIR: TBLPTR) ; 

VAR INSERT: TBLPTR ; 

HUND RED S , T EN S , r JN I TS , R EL AD DRE S S : I NT EGE R ; 
BEGIN 

HUNDREDS: =JUMPTR3. JUMP A DDR TO 1 ; 
TSNS:=JUMPTR3. JUMP ADDST02 DIV 10; 

UNITS: =J U MPTRS . JUM?_A DDRT02 - (10*TENS) ; 

NEW (INSERT, CODE) ; 

INSERTS. T AG: =CODE; 

INSERTS. A DDR ESS : =A DDR ESS S; 

RE LADD RES S: = ADDRESSS; 

ADERESSS: =ADDRSSSS+1; 

INSERTS. KEYCODE: = STO; (* STO *) 

IF CODE TTONIL THEN 

CCDE TT 3. SEQUENTIAL: =INSERT; 

COD£_TT:= INSERT; 

NEW (INSERT, CODE) ; 

INSERTS. T AG:=CODE; 

INSERTS. A CDRESS:=ADDRESSS; 

ADDRESSS: =AD DR ES3S + 1 ; 

INSERTS. K EYCODE:= D IS? LA YREGSTORS ; (*DISP*) 
CODE TTS. SEQUENTI AL : = 1 NS ERT ; 

CO DE^TT: = INS ERT ; 

NE W (INSERT, CODE) ; 

INSERTS. T AG: =CODE: 

INSERTS. A DDR ESS: =AD DRESS S; 

ADDRESS S: = AD DRESS S + 1 ; 

INSERTS. KEYCODE:=CE; (* CE *) 

CODE TTS. SEQUENTIAL : = INS ERT; 

CO EE^TT; = INS ERT ; 

NEW (INSERT, CODE) ; 

INSERTS. T AG: =CODE; 

INSERTS. ADDRESS:=ADDRESSS; 

ADDRESSS: =ADDRESSS + 1 ; 

INSERTS. KEYCODE:= JUMPTRS.MEM A DDR ; 

CODE TTS. SEQUENTI AL : = INS ERT ; “ 

COE E”TT: = INS ERT ; 

NEW (INSERT, CODE) : 

INSERTS. T AG: =CODE: 

INSERTS. A DDRESS:=ADDRESSS; 

ADERESSS: =ADDRESSS+ 1 ; 

INSERTS. KEYCODE:= DECIMAL; (*.*) 

CODE TTS. SEQUENTIAL : = INSERT ; 

CO EE“TT: = INS ERT ; 



NEW (INSERT, CODE) ; 

I N SERTS. T AG : =CODE ; 

INSERTS. A DDR ESS : =A DDR ESS S; 

ADCRESSS: =ADDRESSS + 1 ; 

INSERTS. KEYCODE: HUNDREDS; (* 100S *) 

CODE TTS. SEQUENTIAL : =INS ERT ; 

CO CE^TT : = INS ERT ; 

NEW (INSERT, CODE) : 

INSERTS. T AG: =C0D3; 

INSERTS. ADDRESS: =AD DR ESS S; 

ADCRESSS: =ADDRESSS + 1 ; 

INSERTS. KEYCODE:= TENS; (* 1 OS *) 

CODE TTS. SEQUENTIAL: = INSERT ; 

CODE” TT:=INSERT; 



NSW (INSERT, CODE) ; 

INSERTS. T AG: =CODE; 

INSERTS. A DDR ESS: =A DDR ESS S; 

ADDSESS3: =ADDRESSS+ 1 ; 

INSERTS. KEYCODE:=UNITS; (* IS *) 

CODE TTS. SEQUENTIAL : = INSERT; 

CO CE^TT : = INS ERT ; 

NEW (INSERT, CODE) : 

INSERTS. TAG:=CODE; 

INSERTS. A DDR ESS: =A DDR ESS S; 

ADCRESSS: =ADDRESSS+ 1 ; 

INSERTS. KEYCODE:=RS; (* R/S *) 

CODE TTS. SEQUENTIAL: =INSERT ; 

CO CE“"TT : = INS ERT; 

CO DE“ TTS. SEQUENTIAL:=NIL; 

JUMPTRS. J (JMP INTADDRTOI : =RELADDRESS 

CIV 100; 

JOMPTRS.JUHP INTADDRT02: =RELADDRSSS- 100* 

JUMPTRS.JUMP INTADDRTOI; 
END; (* GEN JUMPCODE SETINT ACER *) 

* *) 

EGIN 

IF S EGS. TAB LELISTON I L THEN 
BEGIN 

MEMPTR : =HE AD KEHODULE; 

WHILE NOT (5EGS. STOP ADDR+ 1 = MEMPTRS. 

SEGT3LSS. START ADDR) DO 
HE MPT R : = MEMPTRS . NEXT : 

ACDDRTO 1 : =MSMPTRS . SEGTBLSS. START ADDR 

TJIV 100; 

ACDDRTO 2: =MEM?TRS .SEGTBLSS. START ADDR 

- (100*AD‘DDRTO 1) ; 

ACDDRTO 1 : = ADDDRTO 1 +MEMPTR S. HIG HOFFS ET ; 
ACDDRTO 2 := ADDDRTO 2+M EMPTRS. LOWOFFSET; 

MEM ADD DRTO: = MEMPTRS. KSMNUM; 

NEW7JUM FTR.FWD JUMP) ; 

WITH JUMPTRS DO 
BEGIN 

JUMP ADDRT01 : =ADDDRT01; 

JUM P“ ADDRT02 : =ADDDRT0 2; 

MEM IDDR:=MEM ADDDRTO; 

END; " 

GEN JUMPCODE SETINT ADDR 

" (CODE TT,ADDRESSS, JUMPTR) ; 
DISPOSE (JUMPTR, FWD JUMP); 

EN C * “ 

IF SEGS. F JUMPLISTONIL THEN 
BEGIN ~ 

JUMPTR: =SEGS. F JUMPLIST; 

WHILE JUMPTRONlI DO 
BEGIN 

MEM PTR : =HEAD MEMODULE; 
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WHILE NOT ((JUMPTRd). JUMP ADDETC >= 

KEHPTR3.SEGTBLS3. START ADDB) AND 
( J UMPIRE. JUMP - ADD PTC< = 
MEKPTR3. SEGTBLS3.ST0P 1DDR) ) DO 
MEMPTR :=MEMPTRa> .NEXT; ” 

DELTA ADDRESS : = JUMPTR5>. JUMP ADD5TO- 
~ HEMPTR3.SEGT3LSd. START ADDB; 
ADJDDRTOI :=DELTA ADDRESS DIV 10TJ; 
ADDDRT02:=DELTA”ADDRESS- 100* 

ADDDRT01; 

HEM ADDDRTO: »HEHPTR3. MEMNUH ; 

JUHTTR3. JUMP ADDRT01 : =ADDDST01 ; 

JUM PTR 3. JUMP - ADDRT02: =ADDDRT02 ; 
J0MPTR3. HEM ADDR:=ttEM ADDDRTO; 

GEN JUHPCODE SETIN TADT3R S 

(CODE TT, AUDRESSS. JUMPTR) ; 

JUM PTR : =J UHPTR3 . NEXT FJUH? ; 

END; 

E N C ■ 

END;" 1 ’ (* ADDCODS FJHP *) 

(* = * 

BEGIN 

ST ART : = SEGa>. START ADDR ; 

STOP : = SEGa) .STOP AUDR; 

COPYCOCE(BUILT CODS, CODE HH, COD E TT, 

"ADDRESSS, START, STOP) ; 
IF (COBKEMd. RETURNCODE NEEDED) AND 

(SEG=C'JR MEM 3. SEGT5LS) THEN 
ADD RETURNCODE (CODE TT, ADDRESSS) ; 

ADECOBE FJHP ( HEAD MEMOD OLE , CORK EM , 5EG, CODE TT , 
- “ ADDRE S) • 

A DECODE SBRBRK MARKINVOKED (HEAD MEMODULE," 

" CURMEM ,SSG,COD" TT, ADDRESSS) ; 
JUSTIFY CODE (SSG, CURMEM, CODE HH)X 
END; " "(* PROCESS SEG *) 
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_ _ _ _ ^ 

* MARKINVOKED: MARKS MEMO DOLE OF S3R WHICH WAS * 

* INVOLVED IN A BREAK FOR A MANUAL RETURN. * 

* ADD REIRUNCO CE USES THIS MARK TO ADD CODE. * 

$ 

RCCEDURE MARKINVOKED (VAR HEAD MEMO DULE : T3LPT R; 

SBR: TEL ?T 3) 

VAR MEMPTS, SBR BRKINCLUDE: TBLPTR ; 

BEGIN 

SBR BRKINCLUD E:=SBR3.SBRZ; 

ME MPT R : = HE AD MEMODULE; 

WHILE SER BRK INCLUDES. T ABLELISTONIL DO 

SBR ERXlNCLUDE:=SBR 3RKINCLU DE3 . TAELEL 1ST; 
WHILE EEMPTR3 . SEGTBLS<?S3R BRKINCLUDE DO 
MEMFTR: =MEMPTR3. NEXT ; ~ 

MEMPTRa.RETUR NCODE NEEDED : =T RUE ; 

END; “ (* MARKINVOKED * 

/* * 

BEGIN 

IF (SEGS. INCLUDED = FALSE) THEN 
BEGIN 

PROCESS SEG (BUILT CODE, HEAD MEMODULE ,CU RM EM 
SEG,CUDE HH , CODE TT, ADDRESS S) ; 
IF CCDE H=NIL THEN " 

CODE B;=CODE HH; 

IF CCDE TO NIL - THEN 

CCDE T3 .SEQUENTIAL: 3 CODE HH; 

SEG 3 . INCEUD ED : =T RUE ; 

CODE T ; = CO D E TT; 

IF fEEG3.S3RlISTONIL) THEN 
BEGIN 

SERL:=SEG3.S3RLIST; 

WHILE SBRLONIL DO 
BEGIN 

SBR :=S8RL3. SBR; 

CASE SBR3.TAG OF 
S ERSREAK: 

MARKINVOKED (HEAD MEMO DUL E , S ER ) ; 
TABLE: 

FORM MEMORY (BUILT CODE, 

HEAD - MEMODULE , CURMEM , SBR, CODE H 

CODE T , ADERESSP) 

END: (* CASE *) 

SBR L: =SBRL3. NEXT SBR; 

END; 

END ; 

END; 

END; (* FORM MEMORY * 

/ * * 

BEGIN 

SEG:=CURMEM3.SEGTBLS; 

AEDR E S SS : = C ; CODE H: = NIL; CODE T:=NIL; 

FCRM MEMORY (BUILT CODE, HEAD MEMOPUL E, C URM EM , S EG , 

CCDE H , CO DE T , ADCRE SS S) 

C URMEM3. CO DELI ST: =CCDE H; 

END; - (* BLD A MEMORY * 

( * * 

BEGIN 

CURMEM:=HEAD MEMODULE; 

WHILE CU RM EM^>NIL DO 
BEGIN 

ELD A MEMORY (BUILT CODE, HEAD MEMODULE ,CURME K) ; 
CURflEflS. SEGTBLS 3. INCLUDED : = FlLSE; 

IF CURMEM3.SEGTBLS3. SBRLISTONIL THEN 

RESET INCLUDE D (CURMEM3 .SEGTBLS3.SBRLIST) ; 
CURMSM: = CURMEM3 . NEXT; 

END; 

END; (* 3LD_MEMODULECOCE * 

— — — — — * 
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<* *) 

PROCEDURE OUTPUT INSTRfVAR OUTFILE, ME3SAGEFILE, 

TEMP FILE: TEXT; BUILT CODE : COD EPTR ; 
HEAD M EMODULE: TBLPTE ; PAST NOM: INTEGER ; 

PAEST IT ION : SEAL; 
GOOD_SSGMENT: BOOLEAN) ; 

J :$c _ _ _ ______ 

* OUTPUT GOODSEGS: P BINTS OUT GOOD SEGMENT INSTRUC *) 

3^1 _ _ _ _~ _________ _ _ _ __ 

BCCEDUH E CUT P CT G OOD SEG (7 AR OUTFILE, MESS AG EFILE : 

TEXT; KTAD M EMODULE: TBLPTS ; PART NUM: INTEGER; 

PARTITION: REAL) ; 



(* OUTPUT MS GF1 : PRINTS OUT GOOD SEGMENT GENERAL *) 
(* INSTRUCTIONS AND THE PROGRAM LISTING BY MEM *) 
<* MODULES. *j 

tRCCEDURE OUTPUT MS GF 1 (VAR 0 UTFI LE , ME S3 AG EFI LE : TEXT ; 

HE1D MEMODULS: TBLPTR ; ? ARTNUM: INTEGER; 

PARTITION: REAL) ; 

VAR P , T: TBLPTR ; 

STEP TYPE: INTEGER; 



'■* 

'* 

1 * 

1 * 

* 

1 * 

1 * 

* 

* 

* — 



SET STEP: SETS THE KEY 
PRINTLINE PROCEDURE. 
PUT OF THE TI-59 CODE 

3 STEP 2 STEP 

AAA AAA 

X X XX 

XXX XXX 

XXX ( .3,7,6.) 

(. 12, 1 1,10,9. ) 



CODE COUNTER FOR THE 
USED FOR CORRECT CUT 
(3,2, 1,0 STEP INSTR) 



71S76 

AAA 

AAA 

.5,4. 



1 

AAA 

XX 

) / ( * 3 , 2 . ) 



-* 
* 

$ 

* 

*[ 
*) 
* 

* 

S (. 0. ) * 

* 



0 

AAA 

(. 1 •) 



PROCEDURE SET STE P (T : T 3LPT R ; 

VAR STEP TYPE: INTEGER) ; 

BEGIN 

IF STEP TYPE IN ( . 0 , 1 , 3 , 5 , 8 . ) THEN 
IF T37KEYCODE IN STEP 3 THEN 
STEP TYPE : = 12 
ELSE ~ 

IF To). KEY CODE IN STEP 2 THEN 
SIEP TY PE : =8 
ELSE ~ 

IF T3.KEYC0DE IN STE? 1 THEN 
STEP TYPS:=3 
E ISE 

IF To) . KE YCODE IN (.71,76.) THEN 
STEP T YPE :=5 
ELSE “ 

STS E TYPE := 1 ; 

END; “ (* SET STEP *) 

(* ' *) 
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(* 

(* PRINT LINE: PRINTS OUT C NS LINE OF CODE AT A * 
(* TIME. * 

| $ * ) 

PROCEDURE PRINT LINE (VAR OUTFILE : TEXT ; VAR T: 

T3LPTR ; VAR STEP JTYPS: INTEGER) ; 



(* HRITELELS: WRITES T3LPTR LBLS IN WHOLE KEY 
* CODE FORMAT IE. NNN NN AAA 

ht 

PROCEDURE WRITEL5LS (VAR 0 UTFIL E : TEXT ; T : I E L PT R 
BEGIN 

WRITE (OUTFILE, • '): 

WRITE LEADZERO (OUTFILE, TO. ADDRESS , 3) ; 
WRITEIOUTFILS, ' • ); 

WRITE LEADZERO (OUTFILE, TO. KEYCODE , 2) ; 
WRITElOUTFILE. • •); 

WRIT EL5L (OUTFILE, TO. KEYCODE) ; 

END; (* WRITELBLS 

( * 
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WRITENUMS: WRITES OUT A LINE OF DIGITS OF 
TI-59 CODE (KEYCODES ARE DIGITS NOT LELS) 

Procedure writenums (var outfile:text; t-.tblptr 

3EGIN 

WRITE (OUTFILE. ' '): 

WRITE LEADZERO (OUTFILE, TO . ADDRESS , 3) 
WRITElOUTFILE,' '); 

WRITE LEADZ ERO (OUTFILE, TO. KEYCODE, 2) 
WRITElOUTFILE,' '); 

WRITE LEADZERO (OUTFILE, TO. KEYCODE, 2) 
WRITEIN (OUT FILE) ; 

END; (* WRITENUMS 

* ...... .......... — . — ..... ... 

E3IN 

IF STEP TYPE IN (.1,3,4,5,3,12.) THEN 
WRITEI3LS (OUTFILE, I) 

EL SE 

WRITENUMS (OUTFILE, I) ; 

T: =T 0 . SEQUENTIAL; 

STEP TYPE: =S T SP TYPE-1; 

END; ~ (* PRINT LINE 



EGIN 

PRINTLN MSG (OUT FILE, MESS AGEFILE, BAXINSTR) ; 
PRINT M5GLINE1 (OUTFILE, M S SS AGS FIL E , RTNRGTOP) ; 
WRITEIN (CUTFILE .REGCOUNT: 3) ; 

PRINT MSGLINE1 (OUTFILE, MESS AGEFILE,STOINRG) ; 

WR IT ElN (CUTFILE , MANRTNRE G : 3) ; 

WRITELN (CUTFILE) ; 

PRINT M SGLINEIfOUT FILE, MSSSAGEFILE, PGM? ARTIS) ; 
WRITEIN (CUTFILE , PARTITION : 4 : 2} ; 

WRITELN (CUTFILE) ; 

PRINT MSGLINE1 (OUTFILE. M ESS AGEFILE, PARTNUMI S) ; 
WRITEIN (CUTFILE , PARTNUM: 1 ) ; 

WRITELN (CUTFILE) ; WRITELN (OUTFILE) ; 

P: = H HAD MEMODULE; 

WHILE P^> NIL DO 
BEGIN 

T: = P5. CODELIST; 

STE P TY? E" = 0* 

WRITELN (OUT FiLE) ; WRITELN (OUT FILE) ; 

WRITELN (OUTFILE) ; 

PRINT MSGLI NE 1 (OUTFILE, MESSAGEFILE , MODN) ; 



237 



* * * * * ^ H * 



WEI TEIN {OUT FILE, Pa). MEMNUM: 1) ; 

PRINTLN MSG (OUTFILE, MES SAG Er I LE,CARD1) ; 
PSINILN“HSG (OUTFILE, HESSAGEFILE, SIDE1) ; 

WHILE TONIL DO 
3EGIN 

IF T 3. A DDR ESS =24 0 THEN 
BEGIN 

WEI TELN (OUT FILE); WRITELN (OUT FILE) ; 
PSINTLN MSG (OUTFILE, HESSAGEFILE , 

SIDE2) ; 

END; 

IF Td. ADDRESS = 430 THEN 
5EGIN 

WRI TELN (OUT FILE): WRIT EL N (OUTFILE) ; 
PHINTLN MSG (OUTFILE, MBS SAGEFILE , 

~ C AR £2 ) ; 

PRINTLN MSG (OUTFILE, HESSAGEFILE , 

SI DEI) ; 

END; 

SET STEP (T,STEP TYPE) ; 

PRINTLINE (OUTFILE, T,STE?_TYPE) ; 

END; 

P: = P2 .NEXT; 

END; 

END; (* OUTPUT MSGF1 



* * 

(* OUTPUT MSGF2; OUTPUTS SPECIFIC PROMPTS AND *) 

(* SPECIAL PROGRAM INSTRUCTIONS *) 

} — 

PROCEDURE OUTPUT MSGF2 (VAR OUTFI LE , MESS AG E F ILE : TEXT ; 

HEAD ME MOD ULE : TBLPTR) ; 
VAR SBRL , SEP,SM,P ,F,SEG:TBLPTR; “ 

IS SBRERK: BOOLEAN; 

BEGIN “ 

P: = H EAD MEMODULE; 

PRINTLN'MSG (OUT FIL E , MESS A GEE ILE , S PECI FICS) ; 

WHILE Pl>NIL DO 
BEGIN 

SEG ; =F5). SEGT3LS; 

F; = SEG3. F JUMPLIST; 

SERL :=SEG3. SBRLIST; 

WRITELN (OUT FILE) ; 

PRINT MSGLINE1 (OUTFILE, HESSAGEFILE , 

MODFROMPTS) ; 

WRI TELN (OUT FILE, Pa). MEMNUM: 1) ; 

PRINTLN MSG (OUTFILE, HESSAGEFILE , PFWDJ) ; 

IF F= NIL THEN 

PRINTLN MSG (OUTFIL S , MESS AGEFI LE , NO NE) 

ELSE 

BEGIN 

WHILE FONIL DO 
BEGIN 

PRI NT MSGLINE 1 (OUT FIL E, H ESS A GEF IL E , 

ASTER); 

WRI TE (OUTFILE .Fa). MEM AD DR: 1, * . • ) ; 
WRITE LEAD2ERO (OUTFIIE, (F3. 

JUMP A DDRT0 1 *1 00 
Fa) . JU MP"“ ADD RT02 ) , 3) ; 
WRITELN (OUTFILE) ; 

F: = Fa). NEXT FJUMP; 

EN D ; 

END; 

PRINTLN MSG (OUTFILE, HESSAGEFILE , PSBRINV) ; 

IF S ERL= NIL THEN 

PRINTLN MSG (OUTFILE , MESS AGEFILE , NONE) 
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ELSE 

3EGIN 

IS SER3 
WHILE S 
BEGIN 
SBR 
IF 

B 



E 

SBR 
END; 
IF NOT 
PRINT 

END* 

PRINliN MSG 
IF P 2 . RlTUR 
PRINTLN M 
ELSE 

PRINTLN M 
PRINTLN MIG 
IF S EGS7TA3 



RK : =FALSE; 

BRLONIL DO 

;=SERL3. SBR; 

SBR a). TAG = SBR BE EA K THEN 
EGIN 

SM:=HEAD MEMODULE; 
SBR:=SBR3.SBRZ ; 

WHILE SHa.SEGTBLSOSBB DO 
S K : =SMa>. NEXT ; 

IS SBRBRK :=TRUE; 

PRINT MSGLINE1 (OUTFILE, 

MESSAGSFILE, ASTER) ; 
WEITELN (OUT FILE, SMS. MEMNUM: 1 . 

' . 00 0 * ) ; 

ND; 

L:=S3RL3. NEXT_SBR; 

IS SBRBRK THEN 

LN“MSG (OUTFILE, MES SAGEFILE , NONE) 

(OUTFILE, MESSAG2FILE,PMANRTN) ; 
NCODE NEEDED THEN 
SG (OUTFILE, MESS AGE FILE, YES) 



SG (OUTFILE, ME3SAGEFILS, NONE) ; 
(OUTFILE, MESSAGEFILE,?SEQ) ; 
LSLIST <> NIL THEN 



BEGIN 

FRINT M SGLINE1 (OUTFILE , MESS AGEFILE , 

— ASTER) ; 

WEITELN (OUTFILE, PS. NEXTS. 

MEMNUM; 1 , * . 000' ) 

END 

ELSE 

PRINTLN MSG (OUTFILE, MESS AGEFILE, NONE) ; 

P: = P 3 .NEXT ; 

END* 

WRITELN (CUTFILE) ; WRITSLN /OUTFILE) : 

PRINTLN MSG (OUTFILE, SCRATCH, DATARSAD) ; 
WRITELN1CUTFILS ); WRITELN (OUTFILE) ; 

FRINTLN MSG (OUT FILE, SCRATCH, REG MAP) ; 
WRITELN1CUTFILE ) ; WRITELN (OUT FILE) ; 

END; (* OUTFUT MSG2 *) 

J* = * 

EEGIN 

OUTPUT M3GF1 (OUTFILE, MESSAGSFILE, HEAD MEMODULE, 

PART NUM . PARTITION) ; 

OUTPUT MSGF2 (OUTFILE, MESSAGEFILI, HEAD MEMODULE) ; 
WBITELTJ (OUTFILE); 

PRINTLN MSG (OUTFILE, MESSAGEFILE, ENDLBL) ; 

END; " (* OUTPUT GOCDSEG *) 

(* * 
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OUTPUT EADS EG: HANDLES BAD SSG INSTRUCTIONS 



. 

* 

-# 



’RCCEDURE OUTPUT B ADS EG ( VAR OU 

“ TEMPFILSlTE 

EEGIN 

WRITELN (OUTFIL E): WRITELN (0 
PRINTLN MSG (OUTFILE, MESSAG 
RESET (TPMPFlLE); 

PRINTLN MSG (OUTFI LE , TEMPFI 
WRITELNTOUTFILE) ; WRITELN ( 
PRINTLN MSG (OUTFILE, MESSAG 
WRITE LN70UTFILE) : WRITELN (0 
CODELIST (OUTFILE, BUI 



T FILE, MES 
XT; BUILT 



SAGEFILE, 
CODE : CCD EFT 



5 ) ; 



PRINT 



WRITEEN (OUTFILE): 

~ ~ — TTFILE, 

END 

* 



UTFILE) : 

EFILE, FAILINSTR) ; 

LE,9) ; 

OUTFILE) ; 

EFILE, UNSEGCODLBL) ; 
UTFILE) ; 

LT CODE) ; 



PRINTLN MSGtOU 1 ; 

Kn • “ 



MESSAGEFILE, END 
(* 0 



LBL) ; 

UTPUT B ADS EG 



EGIN 

IF NOT GOOD SEGMENT THEN 

OUTPUT BAT3SEG(0UT FILE, MES SAGEFILE, Tj 



*) 

*) 



1KPFILE , 

BUILT COD 



HEAD MEMODUL 
NUM , PA etitio 
'OUTPUT INSTR 



(* 



ELSE 

OUTPUT GOODSEG (OU TFI LE , MES S AG EFI LE , 

, ? A R T 

END; (* 

( * ~ ~ 

BEGIN 

ELD MEMODULENODES (SEGTBL,HEAD MEMODULE) 
BLD*MEMODULSCODE (BUILT C0DE,HPAD MEMODU 
OUTPUT INSTR (OUTFILE, MPS S AGEFI L S7TEM PFI 

HEAD MEMODULE, PART 
GOO D~ SEGME NT ) ; 

END; ” (* INSTRUCTIONS 



E) 



N) ; 

JJ 



LE ; 

LE, BUILT CCD 
? NUM , PARTITI 



c'j, 

«! 
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^*# *#**#$**:*##*# ## * *^c ^cajc^e ^fr##*###**;***##***# *$ ofr***;};*:*#:*;*;*:;^ 

(* MAIN DRIVES *) 

(************************************* * *** * ** ** ** #*^;***4t4t**J 



BEGIN 

INII SETS(TEMPFILE,STE? 0,STEP 1 r STEP 2, STEP 3, 

GOC D_SEG ME NT , MESSAGE? ILE ,TIL1BL, S B HITT V NEST) f 

D ET_LIM IT ( RE GCOU NT, L IMI T, NUMB AN KS,P AS T_NUM, PARTITION) ; 

INPUT (SCRATCH, BUIIT_COD E f BUI LT_CO DE_CO UNT) ; 

SET JMFS (BUI LT__CO DE) ; 

EUILE_SEGT3L (BU IIT_CODS , 3EGTBL, LIMIT , 3UILT_CODE_COUNT) ; 

COALESCE (SEGTBLo). TABLED 1ST, LI MIT, GOOD SEGMENT 

, S3RINVNEST) ; 

WRITELN (TEMPFILE, '$9') J (* CLOSES TEMPFILE DIAG FILE *) 

INSTRUCTIONS (OUTFILE , ME SS AG EFILE .TEMPFILE , 

EUILT CODE-SEGTBLa). TABLEL I ST , PART NUM , P A RTI T 10 N , 
GCO D_SEG M ENT) ; 

REWRITE (TEMPFILE) ; (* ERASES TEMPFILE DIAG FILE *) 

END. 



(**#***:(>**** ****** ****** ***********************************) 
(* END OF PROGRAM *) 

(**********************************************************) 





















' 









' 






I 










APPENDIX J 

MESSAGEEILE FILE — LINKER BESSAGES 
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EAX59 PROGRAM INSTRUCTIONS: VERSION 1.0 



* CONGRATULATIONS, YOU HAVE JUST COMPILED A BASIC PROGRAM 

INTO A TI-59 PROGRAM. IN SO DOING IT IS VERY POSSIBLE 
THAT YOUR PROGRAM IS LARGER THAN THE MEMORY OF THE 
CALCULATOR. IF THIS IS THE CASE THEN THE PROGRAM HAS 
BEEN SEGMENTED AND PROMPTING CODE INSERTED TO GUIDE 
YOUR CALCULATOR PROGRAM DURING ITS EXECUTION. THE RE- 
MAINDER OF THIS OUTPUT CONSISTS OF TI-59 CODE LISTINGS 
AND OTHER INFORMATION TO AID YOU IN YOUR PROGRAM 
EXECUTION. 

* THE FOLLOWING DEFINITIONS ARE PROVIDED AS AN AID TO 

READING THE PROGRAM LISTING FILE. 

* DEFINITIONS: 



* MODULE: A MODULE IS DEFINED TO BE ALL THE MEMORY 

DEDICATED IG PROGRAM STEPS. THE SIZE IS VARI- 
ABLE AND IS DEPENDENT ON THE REGISTER REQUIRE- 
MENT. VALUES RANGE FROM 0 TO 239, 479 OR 719 
DEPENDING ON THE AMOUNT 0? REGISTERS USED EY 
THE PROGRAM. 

* CARD: A CARD IS DEFINED TO BE ONE MAGNETIC CARD. 

A CARD HOLDS 430 PROGRAM STEPS. THESE STEPS 
ARE NOT CONTIGUOUS BUT ARE ARRANGED ON THE TWO 
SIDES OF THE CARD. 

* SIDS: A SIDE IS ONE HALF OF A CARD. IT CONTAINS 

UP TO 240 STEPS. WHEN ONE SIDE OF A CARD IS 
READ 3Y THE CALCULATOR 240 PROGRAM STEPS ARE 
FILLED IN MEMORY. THESE 3 LOCKS OF 240 STEFS 
ARE REFERED TO AS '’BANKS" IN THE MANUFACTURER 
LITERATURE. WHEN LOADING A CARD YOU WILL LOAD 
ONLY 3ANK NUMBER 1 AND/OR 2 FOR PROGRAM STEPS. 

* PARTITION: THIS IS DEFINED TO BE THE CURRENT 

SETTING OF CALCULATOR MEMORY AS APPLIED TO THE 
AMOUNT OF MEMORY DEDICATED TO STORAGE REGISTERS 
AND THE AMOUNT DEDICATED TO PROGRAM STEPS. 

WE WILL EE DEALING WITH 3 PARTITIONS. THESE 
ARE : 



3 

4 

5 



719.29 

479.59 

239.69 



FORMAT 



X 



YYY.ZZ 



WHERE X STANDS FOR PARTITION NUMBER 

YYY STANDS FOR PROGRAM STEPS (0-YYY) 
ZZ STANDS FOR REGISTERS (0-ZZ) . 
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TI-59 PROGRAM LISTING EY MOD ULE/C A RD/SIDE: 



* THE FOLLOWING IS YCDR PROGRAM LISTING. THE PROGRAM IS 

LISTED ACCORDING TO MODULE NUMBER AND ITS ASSOCIATED 
CARDS AND CARD SIDES. 

* REFER TC THE TI-59 PROGRAMMER'S GUIDE ON HOW TO INPUT A 

PRCGRAM AND WRITE IT TO MAGNETIC CARDS. 

* CAUTION: ENSURE THAT THE CORRECT CALCULATOR PARTITION 

IS SET BEFORE INPUTTING A PROGRAM AND WRITING TO 
MAGNETIC CARDS. 

* CAUTION: ENSURE THAT YOU DC NOT CONFUSE BANK NUMEERS 

WITH CARD/MODULE OR SIDE NUMBERS. THE NUMEERS WHICH 
REFER TO THE LISTING ARE AKIN TO A VIRTUAL ADDRESS 
AND DC NOT REPRESENT THE ACTUAL 3 A NK NUMBER. 

IF IN DOUBT, REMEMBER TO USE THE TABLE BELOW TO 
TRANSLATE VIRTUAL TO ACTUAL 3ANK NUMBERS. 

VIRTUAL BANK ACTUAL BANK 

MODULE # 

C ARD 1 

SID E 1 BANK1 

MODULE * 

CARE1 

SIDE2 BANK2 

MODULE # 

CARD2 

SIDE1 BANK3 



TI-59 LISTING 
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li 






' 
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TI-59 PROGRAM SPECIFIC INSTRUCTIONS: 



* THE FOLLOWING INFORMATION WILL TELL YOU HOW TO RUN 

YOUR PROGRAM. 

* YOU MUST ENTER YOUR PROGRAM MANUALLY INTO THE CALCULATOR 

AND WRITE THE PROGRAM TO MAGNETIC CARDS. THIS STEP 
ONLY NEEDS TO EE ACCOMPLISHED ONCE. AFTER THAT, THE 
PROGRAM IS ENTERED USING THE MAGNETIC CARD FACILITY 
OF THE CALCULATOR. SEE THE MANUFACTURER'S LITERATURE 
ON ENTERING A PROGRAM AND WHITTING IT TO MAGNETIC 
CARDS. YOU WILL NEED TO PARTITION MEMORY. 

* HCW TC PARTITION THE MEMORY 

* KEY SEQUENCE: 

X 

2ND 

OP 

17 

* X IS THE PARTITION NUMBER GIVEN IN THE LISTING OF 

Y CUR PROGRAM. 

* WHEN TO PARTITION THE MEMORY 

* CNCE 3SF0RE READING IN CARDS. 

* CNCE BEFORE MANUALLY ENTERING PROGRAM IN ORDER TO 

WRITE TO CARDS. 

* HCW TO START AND RUN YOUR PROGRAM 

* TURN ON CALCULATOR 

* PARTITION CALCULATOR 

* LCAC ALL MODULE 1 CARDS 

* OPTIONAL STEP: IF YOU SELECTED THE MANUAL DATA INPUT 

DENOTED IN YOUR BASIC PROGRAM BY USING THE "DATA" 
AND "READ" STATEMENTS THEN YOU MUST MANUALLY ENTER 
YCUR DATA INTO THE CALCULATOR MEMORY. THIS IS 
DC NE BY REFERRING TO "INPUT DATA TO READ" TABLE 
PROVIDED AT THE END OF THIS LISTING. MANUALLY 
ENTER THE GIVEN DATA INTO THE REGISTERS USING THE 
FOLLOWING KEYSTROKES: 

D AT A 

STO 

XX 

WHERE XX IS THE DESIRED REGISTER NUMBER. 

* INITIALIZE THE MANUAL SBR RETURN CONTROL STACK WITH 

THE FOLLOWING KEYSTROKES: 



STO 

08 

WHERE XX IS THE MANUAL RETURN REGISTER STACK TOE. 
(THIS IS GIVEN WITH THE PROGRAM LISTING NEAR THE 
PARTITION INFORMATION.) 

* PRESS "A" TO START. 

* FOLLOW DISPLAY PROMPTS. 

* DEFINITIONS: 

* RUN-TIME PROMPTS: ARE DEFINED TO BE CALCULATOR 

PROMPTS DISPLAYED IN THE CALCULATOR WINDOW 
IN THE FORM OF A 4 DIGIT DECIMAL, 2 DIGIT 
INTEGER CR A 1 DIGIT INTEGER. EACH PROMPT 
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IS OUTLINED BELOW: 

* 4 DIGIT DECIMAL 

* FORMAT: X.YYY 

* X STANDS FOR MODULE NUMBER (1-9) 

* YYY STANDS FOR STARTING ADDRESS 

* ACTI CMS : 

* LOAD ALL MODULE X CARDS. 

* PRESS FOLLOWING KEY SEQUENCE TO 
INTIALIZE: 

RCL 

00 

GTO 

Y 

Y 

Y 

PRESS 



WHERE XX 
NUMBER . 



STANDS FOR A 



X CARDS. 
SEQUENCE 



TO 



R/S TO CONTINUE IN NEW MOD. 

* 2 DIGIT INTEGER 

* FORMAT: XX 

REGISTER 

* ACTIONS: 

* LOOK UP IN REGISTER MAP PROVIDED 

THE BASIC NAME THAT CORRESPONDS 
TO THE XX NUMBER. 

* ENTER THE BASIC VARIABLE VALUE. 

* PRESS R/S TO CONTINUE WITH THE 

ENTERED VALUE. 

* 1 DIGIT INTEGER 

* FORMAT: X WHERE IS A MODULE NUMBER. 

* ACTIONS: 

* LOAD ALL MODULE 

* FRESS FOLLOWING 

INITIALIZE: 

RCL 
00 
INV 
SBR 

* PRESS R/S TO CONTINUE 

* PAUSE IN DISPLAY 

* AN UNFORMATTED DIGIT FLASHES 

DISPLAY BEFORE 3EING DISPLAYED. 

THIS IS AN ANSWER THAT CORRESPONDS 
TO A REQUESTED ANSWER IN THE BASIC 
PROGRAM USING THE BASIC PRINT 
STATEMENT. THESE ANSWERS OCCUR IN 
THE SAME ORDER AS THEY WERE 
REQUESTED IN THE BASIC PROGRAM. 

* ACTIONS: NOTE ANSWER AND PRESS R/S. 

* 888 IN DISPLAY 

* SPECIFIC PROMPT THAT INDICATES THAI 

THE PROGRAM HAS STOPPED EXECUTION. 

* ACTIONS: IF DESIRED FIND ANSWERS IN 

THE CALCULATOR MEMORY USING THE 
"T 1-59 REGISTER TO NAME MAPPING" 

AT THE END OF THE INSTRUCTIONS. 



IN NEW MCD . 



IN THE 
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* EXPECTED CONTROL FLOW PROMPTS BY MODULE FOLLOW: 



END EAX59 


SEGMENTATION/INSTRUCTION: VERSION 1.0 


1 1 
1 1 

! 1 
1 1 
1 1 
1 1 
t 1 

t 1 

1 1 
t 1 

1 1 
1 1 
t m=t i 
1 0000 1 
i m** i 






BAX59 

**** 5EGMENTER 


PROGRAM INSTRUCTIONS: VERSION 
FAILURE ************ PROGRAM 
BAX59 DIAGNOSTICS FOLLOW: 


1.0 

FAILURE**** 


* SEGMZNTCR FAILURES: 
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* THE SEGMENTGR COOIE NOT SEGMENT THE COMPILED PROGRAM IN 

A SATISFACTORY MANNER. FCSSIBLS REASONS FOR THE 
FAILURE ARE GIVEN BELOW. 

* THERE ARE TWC TYEES OF SEGMENT BREAKS: 

* A JUMP BREAK OCCURS THROUGH AN ABSOLUTE JUMP TO SOME 

PORTION OF CODE IN ANOTHER MODULE. 

* A SEE BREAK OCCURS THROUGH A S BR INVOKE TO A SBR 

WHOSE DEFINITION RESIDES IN ANOTHER MODULE. 

* SEGMENT FAILURE OCCURS WHEN ONE OF THE ABOVE BREAKS 

OCCURS INSIDE A BACKWARD JUMPING LOOP THAT COVERS 
MORE PROGRAM STEPS THAN IS AVAILABLE IN THE CALCULATOR 
MEMCRY. SEGMENTATION IS NOT ALLOWED IN A LOOP AS IT 
IS IMPRACTICAL TO KEEP READING IN CARDS EVERY TIME 'THE 
THE PROGRAM LOOPS SACK OVER A BREAK (IMAGINE A 1 TO 
1000 LCO? OVER SUCH A BREAK). TO AVOID SUCH A PROBLEM 
YOU MUST STRUCTURE YOUR BASIC PROGRAM TO AVOID LARGE 
BACKWARD- JUMPI NG LOOPS. 

* PROGRAM FAILURES: POSSIBLE PROGRAM FAILURE OCCURS WHEN 

SUEECDTINE C ALL^S ARE NESTED GREATER THAN SIX DEEP. 

THE CALCULATOR ONLY HAS SIX SUBROUTINE RETURN REGISTERS. 

* BEL CW ARE DIAGNOSTICS INDICATING THE SIZES OF THE LOOPS 

IN TI-59 PROGRAM STEPS AND THE TYPES OF BREAKS OCCURRING 
WITHIN THESE LOOPS. DIAGNOSTICS ARE GIVEN IN ABSOLUTE 
CODE. SBR NESTING LEVEL DIAGNOSTICS ARE GIVEN FOR 
INVOKED ROUTINE DEFINITION. 

$84 

$5 



EAX59 VERSION 1.0 

UNSEGMENTED ABSOLUTS COMPILED TI59 CODE FOLLOWS 



$5 

$6 

* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 



* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 

$7 

$8 

* FORWARD JUMP CONTINUATION: 4 DIGIT REAL CODE. 

$8 

$9 

* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 

$9 
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0 




1 




2 


3 




4 




5 




6 


7 




8 




9 




2ND E' 


A 




E 




C 




D 


S 




2ND 


A • 


2ND 


3 • 


2ND C* 


2ND 


D * 


2ND 


CLR 


INV 




LNX 


CE 




CLR 




2 ND 


INV 


2ND LOG 


2ND 


CP 


2ND 


TAN 


X <=>T 


X** 2 


SORT (X) 


1/X 




2ND 


PGM 


2ND ?=> R 


2ND 


SIN 


2ND 


CCS 


2 ND 


INC 


STO 


RCL 




SUM 




Y**X 




2ND CMS 


2ND 


EXC 


2ND 


PRD 


1 X| 




EE 


( 




) 




/ 




2ND ENG 


2ND 


FIX 


2ND 


INT 


2ND 


DEG 


GTO 


2ND 


PGM 2ND IND 


2ND 


EXC 2ND IN 


D2ND 


PRC 2ND 


INDX 


2ND 


PAUSE 


2ND 


X =T 


2ND 


NCP 


2ND OP 


2ND 


RAD 


SBR 




STO 


2 NC IND 


RCL 2ND IND 


SUM 


2ND IND 


— 




2ND 


LEL 


2ND X>=T 


2ND 


SUMMATION 


X-BAR 


2ND 


GRAD 


RST 


GTO 


2ND IND 


2ND 


OP 2ND IND 


+ 




2ND SIFLG 


2ND 


IFFLG 


2ND 


D . MS 


2ND 


PI 


2ND LIST 


a/s 




INV 


SER 


« 




+/- 


= 




2ND 


WRITE 


2ND 


DSZ 


2ND ADV 


2ND 


PRT 
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* EXPECTED PROMPTS FOR MODULE * $ 



$99 

$100 

$100 

$101 

$101 

$102 

$102 

$103 



* NONE 

* $ 

* YES 



$103 
$104 

* MANUAL RETURN REGISTER TCP IS 
$104 

$105 

STORE IN REGISTER: $ 

$105 

$106 

* PROGRAM PARTITION IS $ 

$106 

$107 

* PARTITION NUMBER IS $ 

$107 
$108 



♦MODULE # 


$ 


$108 

$109 


CARE 


#1 


$109 

$110 


CARE 


#2 


$110 
$11 1 


SIDE 


#1 


$111 

$112 


SICE 


#2 


$112 







$ 
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00005 
00010 
0001 1 
COO 1 2 
0001 4 

000 1 5 
00016 
00017 
000 18 

0001 9 
00020 
00022 

00023 

00024 

00025 

00026 
00027 
00050 
00055 
00100 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
0021 0 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
0031 0 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
004 10 
00420 
00430 
00440 
00450 
00460 
00470 
0047 1 

00472 

00473 



APPENDIX K 

ARTILLERY TEST PROGRAM SOURCE CODE 



OPTION 0 5 

R E t3 ***** *** ****** *** ********************************* 
REM 

REM BAX59 TEST PROGRAM NUMBER1 

REM 

REM *THI S TEST PROGRAM IS AN ADAPTATION OF THE PROGRAM 
REM USED BY THE FIELD ARTILLERY IN THE COMPUTATION 
REM OF FIRING DATA FOR THEIR GUNS. THE ORIGINAL 
REM PROGRAM WAS WRITTEN FOR THE TI-59 CALCULATOR. 

REM THIS TEST WAS CHOSEN NOT ONLY TO EVALUATE THE 
REM THE COMPILER AND SEGMENTOR BUT TO COMPARE THE 

REM THE RELATIVE EFFICIENCY OF THE TRANSLATED WEASIC 

REM PROGRAM WITH THAT OF A HUMAN CODED PROGRAM. BOTH 
REM PROGRAMS ACCOMPLISH THE SAME TASK. 

REM 

REM * * ** * *** ********* ****** *** ******************* ** ** * 
REM 

REM ************** DATA SECTION M109 ***************** 
REM 

REM ^CHARGE CONSTANTS M1Q9A1 SELF PROPELLED 

REM ^CHARGE 4 

DATA -.0133670.21.2691,-105.7 

DATA 0C001 499 06630,-. 41 

DATA . 77 ,.01 314 ,.00001720 

REM ^CHARGE 5 

DATA -.0149331.24.3439,64.7 

DATA -.0CG01420,. 07069, .06 

DATA 1 .26, .01508, .00001678 

REM ^CHARGE 7 

DATA -.0173835.29.8741,2255.2 

DATA -. 0C001668,.08487.3. 29 

DATA 1 . 3 ,.02713 ,.0000 1306 

REM ^CHARGE 3 

DATA -.0182137.32.3731,4107.4 

DATA -.00001663, .09272. 5. 74 

DATA 1 .36, .0289 1,. 00001410 

REM 

REM *M 109 MAX RANGE OF CURVE FIT BY CHARGE 

DATA 5700,7000,10800,17600 

REM 

REM *8109 HIGH ANGLE CROSS OVER POINT MILS 

DATA 715 

REM 

REM *BATTERY DATA/ 3TRY E, BT RY N , BTRY A, 3T RYL 

DATA 0,0,0,800 

REM 

REM ^REGISTRATION DATA/RNGK , DFCOR 

DATA 1.0,0 

REM 

REM ^TARGET DA TA/CBS EP.VOR LOC ATI ON ( DU AL MEANING) 

DATA 4000,4000,10 

REM 

REM *0 ES ER VCR DATA 

DATA 4000,-400,10 

REM 

REM *S?SCI FIC CORRECTION FACTORS DATA 

DATA 1018.5924,1600,3200 

REM 

REM 
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00480 
00490 
00495 
00500 
0051 0 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
0061 0 
006 2 0 
006 3 C 
00640 
006 5 0 
00660 
00670 
00680 
00690 
00700 
0071 0 
00720 
C0730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
0081 0 
00820 
00830 
00840 
00845 
00860 
00870 
00875 
00880 
00900 
00910 
00920 
00940 
00950 
00970 
00980 
C0990 
01000 
010 10 
01020 
01022 
01030 
01035 
01040 
01050 
01051 
01055 
01060 
01070 
01080 
01090 
C1100 
011 10 
01115 
01120 



REM 

REM 

REM 

REM 

READ 

READ 

READ 

REM 

READ 

READ 

READ 

REM 

READ 

READ 

READ 

REM 

READ 

READ 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



*************** VARIABLE READ INITIALIZATION 

* M 109 BALLISTIC CONSTANTS 3Y CHARGE 

♦CHARGE 4 

A24,A14,A04 
C2 4,C1 4, C 04 
304,E14,824 
♦CHARGE 5 
A2 5 , A1 5 , A 05 
C28,C15,CC5 
B05,E15,325 
♦CHARGE 7 
A2 7 , A1 7 , A 07 
C2 7 , Cl 7, C 07 
B07,E17,327 
♦CHARGE 8 

A2 8 , A1 8 , A 08 
C28,C13,CC8 
30 8 , E l 8 , B 28 

♦ M 109 MAX RANGE OF CURVE FIT VARIABLES 

CHG4MAX, CHG 5MAX, CHG7M AX, CHG 8 M AX 

* M 109 HIGH ANGLE CROSS OVER VARIABLE 
HACRCSS 

♦BATTERY VARIABLES 

ETRYE, ETRYN , STRYA ,3TR YL 

♦REGISTRATION VARIABLES 
RGK, EFCOR 

♦TARGET VARIABLES OR 03SERV0R I MIT LOCATION 
GRIDE, GRIDN , GRIDA 

♦OBSSRVOR VARIABLES 
CT,LAIDEV,RGDEV 

♦SPECIFIC CORRECTION FACTORS VARIABLES 
MILRAE,ROTCOR, REFDEF 

***** *** **************************************** 
************* 3 £ I N PROGRAM BEGINS ************** 
START 

♦COMPUTE TARGET GRID 
G03UE 1050 

♦COMPUTE GUN RANGE , AZI M UT H 
GOSUE 1130 

♦COMPUTE FIRI NG DATA 
GOSUE 1240 



STOP 

*** * ********* 



MAIN STOP ************************ 



REM 

REM 

REM 



************* SUBROUTINES ********************** 

* ** ************************************ ********* 

♦*♦ COMPUTE NEW TARGET GRID FROM SHIFTS ******** 
********* **** ********************* ************** 

START 

GRIDN = GR IDN+ (RGDEV^SIN ( (ROTCOR-OT) / & 

MIL RAD) -LATDEV+COS ( (ROTCOR-OI) /MIL RAD) ) 
GRIDS = GRIDE+ (RGDEV*COS ( (ROTCOR-OT) / 5 

MILRAD) +L ATDEY* SIN ( (ROTCOR-OT) /MILRAD) ) 

RETURN 

************************************************** 

************************************************** 
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01130 

01131 

01135 

01140 

01145 

01150 

01 160 

01170 

01180 

01190 

01200 

01210 

01220 

01223 

01230 

01240 

01245 

01250 

01260 

01270 

01275 

01280 

01290 

01295 

01300 

01310 

01315 

01320 

01330 

01335 

01340 

01350 

01360 

01370 

01380 

01390 

01395 

01400 

01405 

014 1 0 

01420 

01430 

01435 

01440 

01450 

01460 

01470 

01480 

0148 1 

01490 

01500 

01510 

01515 

01516 

01518 



REM **** COMPOTE GUN RANGE, AZIMUTH ************ * ** *** 
REM * *** * * ** *************************************** ** * 
REM START 

TGTRG = SQR ( (GRIDE- BTRYE) **2+ 8 

8 (GBIDN-BTBYN)**2) 

TGTAZ = AS IN ( (GRID N- BTRYN) /TGTRG) * MIL RAD 
IF GRIDS >= BTRYE 

TGTAZ = RCTCOR - TGTAZ 
ELSE 

TGTAZ = 3*R OTCOR * TGTAZ 
ENDIF 
RETURN 

REM ********** ******* ** * * ******************* ******* ** * 
REM 

REM * *** ****** ******* **************************** ** *** 
REM **** FIRING DATA COMPUTATION ROUTINE ************* 
REM * *** * * ** *************************************** ** * 
REM START 

IF TGIRG <= CHG4MAX 

I N VCK3= FN FD(A24,A 14 , AO 4 , C 24 , C 1 4 ,C04 , & 

8 ” B24,E14,B04) 

ELSEIE TGTRG <= CHG5MAX 

I N VCKE= FN FD (A25, A15,A05,C25,C1 5, COS , 6 

& " 325,E15,B05) 

ELSEIE TGTRG <= CHG7MAX 

I N VCKE = FN FD(A27,A17,A07,C27,C17,C07, & 

& " 32?,E17,B07) 

ELSSIF TGTRG <= CHG8 MAX 

I N WOKE= FN FD(A28,A13,A08,C23,C18,C08, 6 

5 ~ 328, El 8,BC8) 

ELS E 

PRINT TGTRG 
ENDIF 
RETURN 

gPM ************************************************** 
REM 

REM * * ** * **** ***** ** * ****************************** ** * 
REM *** FIRING DATA COMPUTATION FUNCTION ************* 
************************************************** 

REM START 

DEF FN FD(A2,A1,A0,C2.C1,C0.B2,B1, BO) 

EL = (-A 1+SQR (A1**2- (4*A2* (A 0- IG TRG* RG K) & 

8 )))/(2*A2) 

IF EL > HACROSS 

PRINT TGTAZ, TGTRG 
E ISE 

PRINT C 0+C 1*EL+C2*EL**2 

PRINT R EFDEF+DFCOR+ (3TRYL-TGT AZ) + 8 

6 (B0+B1*EL+B2*EL**2) 
PRINT EL+ ( (GRID A- 3TB YA+ 20) /TGTRG* 10 00 

ENDIF 

FNENE 

REM ************************************************** 

REM END EAX59 TEST PROGRAM NUMBER ONE 

REM ***** *** ****** ** ********************************** 
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00005 

00010 

0001 1 

0001 2 

000 14 

00015 

00016 

0001 7 

00018 

00019 

00020 

00022 

00023 

00024 

00025 

00026 

00027 

00050 

00055 

00100 

00120 

00130 

0014 0 

00150 

001 60 

00170 

00180 

00190 

00200 

002 10 

C0220 

002 3 0 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

003 10 

00320 

00330 

00340 

00350 

00360 

00370 

003 8 0 

00390 

00400 

004 10 

00420 

00430 

004 4 0 

00450 

00460 



APPENDIX L 

TEST PROGRAM LISTING FILE (LISTF) 



W B A SIC PROGRAM LISTING 



OPTION 0 5 

REM ********* ******** :jc*:$c*****:*:*****:)t*:*******:******:* * 

REM 

REM BAX59 TEST PROGRAM NUMBER 1 

REM 

REM *THIS TEST PROGRAM IS AN ADAPTATION OF THE PROGRAM 
REM USED 3 Y THE FIELD ARTILLERY IN THE COMPUTATION 
REM OF FIRING DATA FOR THEIR GUNS. THE ORIGINAL 
REM PROGRAM WAS WRITTEN FOR THE TI-59 CALCULATOR. 

REM THIS TEST WAS CHOSEN TO NOT ONLY EVALUATE THE 
REM THE COMPILER AND SEGMENTOR BUT TO COMPARE THE 

REM THE RELATIVE EFFICIENCY OF THE TRANSLATED WEASIC 

REM PROGRAM WITH THAT OF A HUMAN CODED PROGRAM. BOTH 
REM PROGRAMS ACCOMPLISH THE SAME TASK. 

REM 

REM * * ** * * *** ******** ****#***#******:*:****#*******: ** ** * 
REM 

HEM * *** ****** **** DATA SECTION M109 ***************** 
REM 

REM ^CHARGE CONSTANTS M109A1 SELF PROPELLED 

REM ^CHARGE 4 

DATA -. 01 336 70, 21. 26 91,-105. 7 

DATA -.00001499 ,. 06630,-. 41 

DATA .77. .01314, .00001720 

REM *CHAriGE 5 

DATA -.0149331.24.3439,64.7 

D A I A -.00C01420 .. 07069, .05 

DATA 1.26, .01508, .00001678 

REM ^CHARGE 7 

DAI A -. 0 173835, 29. 874 1, 2255.2 

DATA -.00001663 ,.08487,3. 29 

DATA 1.3, .02713, .00001306 

REM ^CHARGE 8 

DATA -. 0 182137, 32.3731,4 107.4 

DATA -. 00001663 ,.09272.5. 74 

DATA 1 .36, .0289 1,. 00001410 

REM 

REM *M 109 MAX RANGE OF CURVE FIT 3Y CHARGE 

DATA 5700,7000,10800,17600 

REM 

REM * M 10 9 HIGH ANGLE CROSS OVER POINT MILS 

DATA 715 

REM 

REM * B ATTE E Y DATA/ BTR YE, BT R Y N , BTRY A, BT R YL 

DATA 0,0,0,800 

REM 

REM *R EGI STRATION DATA/RNGK , DFCOR 

DATA 1.0,0 

REK 

REM ^TARGET DATA/CBSSRVCR LOC ATI ON ( DU AL MEANING) 

DATA 4000,4000,10 

REM 

REM *0E3SRV0R DATA 

DATA 4000,-400,10 

REM 



25 1 



00470 

0047 1 

00472 

00473 

00430 

00490 

00495 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00530 

00590 

00600 

006 1 0 

00620 

00630 

00640 

00650 

00660 

00670 

00630 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00845 

00860 

00870 

00875 

00880 

00900 

0091 0 

00920 

00940 

00950 

C097 0 

00980 

C0990 

01000 

01010 

01020 

01022 

01030 

01035 

01040 

01050 

01051 

01055 

01060 

01070 

01080 

01090 



♦SPECIFIC CORRECTION FACTORS DATA 
1013. £924 r 16 00, 3200 



REM 
DATA 
REM 
REM 

REM *************** VARIABLE READ INITIALIZATION ***** 
REM 



REM 


* M 10 9 EALLISTIC 


REM 


♦CHARGE 4 


READ 


A24,A14,A04 


READ 


C2 4 , Cl 4, C 04 


READ 


B04,B14,B24 


REM 


♦CHARGE 5 


READ 


A2 5,A1 5, A 05 


READ 


C2 E ,C1 5, C C5 


READ 


B05 ,B15,B25 


REM 


♦CHARGE 7 


READ 


A2 7 , A1 7, A 07 


READ 


C2 7 ,C1 7,C 07 


READ 


B07,E17,B27 


REM 


♦CHARGE 8 


READ 


A2 8 ,A1 8,"A 08 


READ 


C28 ,C1 8, C C8 


READ 


B06,B18,B28 


REM 

REM 


* M 10 9 MAX RANGE 



READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

READ 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



F CURVE FIT VARIABLES 
CHG4 MAX, CHG 5MA X, CHG7M AX , CHG 8M AX 

* M 10 9 HIGH ANGLE CROSS OVER VARIABLE 
HACRCSS 

♦BATTERY V ARI ABLE5 

ETRY£,ETRYN ,BTRYA,3TRYL 

♦REGISTRATION VARIABLES 
RGK , DFCOR 

♦TARGET VARIABLES OR 03SERV0R I SIT LOCATION 
GRIDE, GRIDN , GRID A 

♦OESERVOR VARIABLES 
OT , LATDE V, R GDE V 

♦SPECIFIC CORRECTION FACTORS VARIABLES 
MILR AD,ROTCOR, REFDEF 

*** * **** ************************************ ** ** * 
************* main PROGRAM BEG T NS *************** 
START 

♦COMPUTE TARGET GRID 
GOSUE 1050 

♦COMPUTE GUN RANG E , AZI MUT H 
GOSUE 1 130 

♦COMPUTE FIRI NG DATA 
GOSUE 1240 

STOP 

************* jja I N STOP ************************ 

************* SUBROUTINES ********************** 

************************************************ 

*** COMPUTE NEW TARGET GRID FROM SHIFTS ******** 
*** ********************************************* 

START 

GRIDN = GR IDN + ( RGDE V* SIN ( (ROTCOR-OT) / S 

MILRAD) - L AT DEV* COS ((ROTCOR-OT) /MILRAD) ) 
GRIDE = GRIDE+ (RGDEV*COS ( (ROTCOR-OT) / S 

MILRAD) +LATDEV* SIN ( (ROTCOR-OT) /MILRAD) ) 
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01 IOC 








RETURN 


011 10 


REM 


* 


* ** 


* **** ******** 


01115 


REM 








01120 


REM 


* 


*** 


************* 


01130 


REM 


* 


*** 


COMPUTE GUN 


01131 


REM 


* 


* 


* * ** ********* 


01135 


REM 






S IA R T 


01 140 








TGTRG = SQ 


01145 


& 






01150 








TGTAZ = AS 


01160 








IF GRIDE > 


01170 








TGTAZ = 


01 180 








ELSE 


01190 








TGTAZ = 


01200 








EN DIF 


01210 








RETURN 


01220 


REM 


* 


* ** 


* * ** * * * ****** 


01223 


REM 








01230 


REM 


* 


*** 


* ************ 


01240 


REM 


* 


* ** 


FIRING DATA 


01245 


REM 


* 


*** 


* * ** * ******** 


01250 


REM 






SIART 


01260 








IF TGTRG < = 


01270 








I N VCKE = F 


01275 


6 








01230 








ELSEIF TGTR 


01290 








INVOKE= F 


01295 


6 








01300 








ELSEIF TGTR 


01310 








I N VCKE= F 


01315 


& 








01320 








ELSEIF TGTR 


01330 








I N VCKE= F 


01335 


& 








01340 








ELSE 


01350 








PRINT TGT 


01360 








END I F 


01370 








RETURN 


01380 


REM 


* 


*** 


* *** ********* 


01390 


REM 








01395 


REM 


* 


*** 


************* 


Cl 4 0 0 


REM 


* 


** 


FIRING CAT A C 


01405 


REM 


* 


* ** 


************* 


01410 


REM 






START 


01420 








DEF FN FD (A 


01430 








El = (-A 


01435 


5 






01440 








IF EL > 


01450 








PRINT 


01460 








ELSE 


01470 








PRINT C 


01480 








PRINT R 


01481 


6 








01490 








PRINT E 


01500 








ENCIF 


015 10 








FNEND 


01515 


REM 


**** 


************* 


01516 


REM 






END EAX5 9 T 


01518 


REM 


* 


*** 


************* 






$**##*#*#**#***#####*##*##*:**:$; ajt# * 

3ANGE* AZIMUTH *** ♦*** ******** *** 

a ( (GRIDE-BTRYE) **2 + 5 

(GRIDN-BTRYN)**2) 
IN ( (GRIDN-STRYN) /TGTRG) *MILRAD 
= BTRYE 

ROTCOR - TGI AZ 
3* RCTCOR + TGTAZ 



********** ***************** ****** 

********************************* 

COMPUTATION ROUTINE ************* 
****************** ********** ** ** * 



CHG4MAX 



N_ 


.FD 


( A 2 4 , 


A 14 , 


AO 4 


rC24, 


rCl4, 


r C04 


t & 












324, 


, B 1 4 


,B04) 


G 


< = 


CHG5 


MAX 










N_ 


.FD 


{ A 2 5 , 


A 1 5 , 


AO 5 


,C25, 


r C 1 5 , 


, C05 


, & 












32 5 , 


r E 1 5 


,305) 


G 


< = 


CHG7 


MAX 










N_ 


.FD 


( A27 , 


A 17, 


AO 7 


,C27, 


,C1 7, 


, C07 














B27, 


r E 1 7 


,B07) 


G 


< = 


CHG8MAX 










N_ 


.FD 


( A28, 


A 1 8 , 


AO 8 


,C28, 


r C 1 8 ( 


,C08 


, 5 














B 2 8 , 


r E 1 8 


, B 0 8 ) 



RG 



****** ****************** ********* 



OMFUTATION FUNCTION ** ***** ****** 
*************************** ****** 



2, A 1 , AO. C 2 
1+SCR (AT ** 

H AC ROSS 
TGTAZ , TGT R 

0+C1*EL+C2 

EFDEF+DFCO 

L+ ( (GRIDA - 




<j 

* 2 

R + 

BT 



1 ,C0.B 
(4 * A2 * 



L** 2 
(BTRYL 
(30+B1 
RYA+20 



2f B 1 , BO) 
(AO-TGTSG* 
) ) )/( 



-TGTAZ) + 
*EL+B2*EL* 
) /TGTRG* 10 



RGK) & 
2* A2) 




& 



********************************* 

EST PROGRAM NUMBER ONE 
********************************* 



COMPILATION SUMMARY 



0 FATAL ERRORS. 

0 WARNING MSGS. 

81 IS NEXT AVAILABLE REGISTER 
TOTAL REGISTERS RESERVED = 11 
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TOTAL REGISTERS USED = 70 

TOTAL LABELS USED = 5 

COMPILATION TERMINATES 



TI-59 CC EE TRANSLATED FROM W5ASIC 
(UNSEGMENTED) 



A EDP CCDS 

$0 BEGIN TI-59 CODE. 



000 


76 


2ND 


LEL 


00 1 


1 1 


A 




CO 2 


71 


53R 




003 


12 


P 




004 


68 


2ND 


NCP 


005 


71 


S3R 




006 


13 


C 




007 


68 


2ND 


NCP 


008 


71 


53R 




009 


14 


D 




010 


68 


2ND 


NCP 


01 1 


24 


CS 




012 


C 8 


8 




013 


08 


8 




C 1 4 


08 


8 




015 


91 


R/S 




016 


76 


2ND 


LEL 


017 


12 


E 




018 


53 


( 




01 9 


43 


RCL 




02 0 


59 


59 




02 1 


85 


+ 




022 


53 


( 




023 


43 


RCL 




024 


63 


63 




025 


65 


* 




026 


53 


( 




027 


53 


( 




028 


43 


RCL 




029 


65 


65 




030 


75 


- 




03 1 


43 


RCL 




032 


6 1 


61 




033 


PU 


) 




034 


55 


/ 




035 


43 


RCL 




036 


64 


64 




037 


54 


) 




038 


38 


2ND 


SIN 


039 


75 


- 




C40 


43 


RCL 




04 1 


62 


62 




042 


65 


* 




043 


53 


( 




04 4 


C -3 


( 




045 


43 


RCL 




046 


65 


65 




047 


75 


- 




048 


43 


RCL 




C49 


61 


61 




C50 


54 


) 




051 


55 


/ 




052 


43 


RCL 




053 


64 


64 




05 4 


54 


) 




055 


39 


2ND 


CCS 
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C56 

057 

C58 

059 

C60 

06 1 

062 

06 3 

C6 4 

06 5 

066 

067 

068 

069 

C7 0 

m 

C7 4 

07 5 

C76 

07 7 

C7 8 

079 

C80 

081 

C82 

083 

C 8 4 

035 

C 86 

087 

C88 

C89 

090 

09 1 

092 

093 

094 

09 5 

096 

C97 

C93 

099 

100 

10 1 

102 

103 

104 

105 

106 

107 

108 

109 

110 

11 1 

112 

113 

1 1 4 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 



54 


) 


54 


) 


42 


STO 


59 


59 


c "3 


( 

RCL 


43 


58 


58 


85 


+ 


53 


{ 


43 


RCL 


63 


63 


65 


* 


53 


( 

{ 


53 


43 


RCL 


65 


65 


/ 5 


— 


43 


RCL 


61 


61 


54 


) 


55 


/ 


43 


RCL 


64 


64 


54 


) 


39 


2ND CCS 


85 


+ 


43 


RCL 


62 


62 


65 


$ 


53 


{ 


53 


\ 


43 


RCL 


65 


65 


75 


- 


43 


RCL 


61 


61 


54 


) 


55 


/ 


43 


RCL 


64 


64 


54 


) 


38 


2ND SIN 


54 


) 


54 


) 


42 


STO 


58 


58 


92 


INV SER 


76 


2ND LEL 


13 


C 


53 


( 


5 3 




53 




43 


RCL 


58 


58 


75 


- 


43 


RCL 


52 


52 


54 


) 


45 


Y** X 


02 


2 


65 


+ 


53 


{ 


43 


RCL 


59 


59 


75 


- 


43 


RCL 


53 


53 


54 


) 


45 


Y**X 
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125 

126 

127 

128 

129 

130 

13 1 

132 

133 

13a 

135 

136 

137 

138 

139 

140 

14 1 

14 2 

143 

144 

145 

146 

147 

148 

149 

150 

15 1 

15 2 

153 

154 

155 

156 

157 

158 

159 

160 

161 

16 2 

163 

16 4 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

19 1 

192 

193 



02 


2 


54 


) 


34 

R4 


SQRT (X) 


42 


oTO 


67 


67 


53 


( 


53 




53 




43 


RCL 


59 


59 


75 


- 


43 


RCL 


53 


53 


54 


) 


55 


/ 


43 


RCL 


67 


67 


54 


) 


27 


2ND INV 


38 


2ND SIN 


65 


* 


43 


RCL 


64 


64 


54 


) 


42 


5TO 


68 


68 


43 


RCL 


58 


58 


52 


X< = > T 


43 


RCL 


52 


52 


32 


;«=>t 


22 


INV 


77 


2ND X >=T 


01 


01 


74 


74 


53 


( 


43 


RCL 


65 


65 


75 


- 


43 


RCL 


68 


69 


54 


) 


42 


SIO 


68 


63 


6 1 


GTO 


01 


01 


65 


85 


53 


( 


C3 


3 


65 


* 


43 


RCL 


65 


65 


65 


+ 


43 


RCL 


68 


68 


54 


) 


42 


STO 


68 


68 


92 


INV SER 


76 


2ND LEL 


14 


D 


43 


RCL 


67 


67 


32 


X 

A 

tl 

V 


43 


RCL 


47 


47 


22 


INV 
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194 


77 


2ND 


X>=T 


195 


02 


02 




196 


44 


44 




197 


53 


( 




198 


43 


RCL 




199 


1 1 


11 




20 0 


42 


STO 




20 1 


71 


71 




202 


43 


RCL 




203 


12 


12 




204 


42 


STO 




205 


72 


72 




206 


43 


RCL 




207 


13 


13 




208 


42 


STO 




20 9 


73 


73 




210 


43 


RCL 




21 1 


14 


14 




212 


42 


STO 




213 


74 


74 




214 


43 


RCL 




215 


15 


15 




216 


42 


STO 




217 


75 


75 




218 


43 


RCL 




219 


16 


16 




220 


42 


STO 




22 1 


76 


76 




222 


43 


RCL 




223 


19 


19 




224 


42 


STO 




225 


77 


77 




226 


43 


RCL 




227 


18 


18 




228 


42 


STO 




229 


78 


78 




230 


43 


RCL 




23 1 


17 


17 




232 


42 


STO 




233 


79 


79 




234 


53 


( 




23 5 


71 


SBR 




236 


15 


E 




237 


54 


) 




238 


54 


1 




239 


42 


STO 




240 


69 


69 




24 1 


61 


GTO 




242 


C4 


C4 




243 


16 


16 




244 


43 


RCL 




24 5 


67 


67 




246 


32 


x<=: 


> T 


247 


43 


RCL 




248 


48 


48 




249 


22 


INV 




250 


77 


2ND 


X>=T 


25 1 


03 


03 




25 2 


00 


00 




253 


53 


( 




25 4 


43 


RCL 




255 


20 


20 




256 


42 


STO 




25 7 


71 


71 




258 


43 


RCL 




259 


21 


21 




26 0 


42 


STO 




26 1 


72 


72 




262 


43 


RCL 





257 



263 


22 


22 


26 4 


42 


STO 


265 


73 


73 


266 


43 


RCL 


26 7 


23 


23 


268 


42 


STO 


269 


74 


74 


270 


43 


RCL 


27 1 


24 


24 


272 


42 


STO 


273 


75 


75 


274 


43 


RCL 


27 5 


25 


25 


276 


42 


STO 


27 7 


76 


76 


27 3 


43 


RCL 


27 9 


28 


28 


280 


42 


STO 


28 1 


77 


77 


282 


43 


RCL 


283 


27 


27 


284 


42 


STO 


285 


78 


78 


286 


43 


RCL 


287 


26 


26 


288 


42 


STO 


289 


79 


79 


290 


53 


< 


291 


71 


SBR 


292 


15 




293 


54 


) 


294 


54 


) 


295 


42 


STO 


296 


69 


69 


297 


6 1 


GTO 


298 


04 


04 


29 9 


16 


16 


300 


43 


RCL 


30 1 


67 


67 


302 


32 


X< = > T 


303 


43 


RCL 


304 


49 


49 


305 


22 


INV 


306 


77 


2ND X>= 


307 


03 


03 


308 


56 


56 


309 


53 


( 


310 


43 


RCL 


31 1 


29 


29 


312 


42 


STO 


313 


7 1 


71 


314 


43 


RCL 


315 


30 


30 


316 


42 


STO 


317 


72 


72 


318 


43 


RCL 


319 


3 1 


31 


320 


42 


STO 


321 


73 


73 


322 


43 


RCL 


323 


32 


32 


324 


42 


STO 


325 


74 


74 


326 


43 


RCL 


327 


33 


33 


328 


42 


STO 


329 


75 


75 


330 


43 


RCL 


33 1 


34 


34 



258 



232 


42 


STO 


333 


76 


76 


334 


43 


RCL 


335 


37 


37 


236 


42 


STO 


33 7 


77 


77 


238 


43 


RCL 


339 


36 


36 


340 


42 


STO 


34 1 


78 


78 


242 


43 


RCL 


343 


35 


35 


244 


42 


STO 


34 5 


79 


79 


346 


53 


( 


347 


71 


SBR 


348 


15 


E 


349 


54 




350 


54 


{ 


35 1 


42 


STO 


252 


69 


69 


353 


61 


GTO 


254 


C4 


04 


355 


16 


16 


356 


43 


RCL 


357 


67 


67 


358 


3 2 


X< = > 1 


359 


43 


RCL 


360 


50 


50 


36 1 


22 


ItIV 


262 


77 


2ND X>= 


36 3 


04 


04 


364 


12 


12 


365 


53 


( 


266 


43 


RCL 


36 7 


38 


38 


268 


42 


STO 


36 9 


71 


71 


370 


43 


RCL 


37 1 


39 


39 


372 


42 


STO 


37 3 


72 


72 


374 


43 


RCL 


375 


40 


40 


37 6 


42 


STO 


377 


73 


73 


278 


43 


RCL 


379 


4 1 


41 


380 


42 


STO 


331 


74 


74 


232 


43 


RCL 


383 


42 


42 


384 


42 


STO 


385 


75 


75 


286 


43 


RCL 


387 


43 


43 


288 


42 


STO 


389 


76 


76 


290 


43 


RCL 


39 1 


46 


46 


292 


42 


STO 


393 


77 


77 


394 


43 


RCL 


395 


45 


45 


296 


42 


STO 


397 


78 


78 


398 


43 


RCL 


399 


4 4 


44 


400 


42 


STO 
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401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 

420 

42 1 

422 

423 

424 

425 

426 

427 

428 

429 

430 

43 1 

432 

433 

434 

435 

436 

437 

438 

439 

440 

44 1 

44 2 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

46 1 

462 

463 

464 

465 

466 

467 

468 

469 



79 

53 


79 

< 




71 


dBR 




15 


E 




54 


) 




54 


) 




42 


STO 




69 


69 




61 


GTO 




04 


04 




16 


16 




43 


RCL 




67 


67 




99 


2ND 


FRT 


98 


2ND 


AEV 


92 


INV 


SER 


76 


2ND 


LEL 


15 


E 




00 


0 




42 


STO 




70 

53 

53 


70 

! 




43 


RCL 




72 


72 




94 


v- 




85 


+ 




53 


( 




43 


RCL 




72 


72 




45 


Y**X 




02 


2 




75 


- 




53 


( 




04 


4 




65 


* 




43 


RCL 




71 


71 




65 


* 




53 


( 




43 


RCL 




73 


73 




75 


- 




43 


RCL 




67 


67 




65 


# 




43 


RCL 




56 

54 

54 


56 

1 




54 


) 




34 


SQST 


(X) 


54 


) 


55 

53 

02 


/ 

i 




65 


* 




43 


RCL 




71 

54 

54 


71 

! 




42 


STO 




80 


80 




43 


RCL 




80 


80 




32 


X< = > I 


43 


RCL 




5 1 


51 




77 


2ND 


x>= 
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470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

48 1 

482 

48 3 

484 

485 

486 

487 

488 

489 

490 

49 1 

49 2 

493 

494 

495 

496 

49 7 

498 

499 

500 

501 

502 

50 3 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

53 1 

532 

533 

534 

535 

536 

537 

538 



C4 


04 




82 


82 




43 


ECL 




68 


63 




99 


2ND 


FET 


43 


ECL 




67 


67 




99 


2ND 


FRT 


98 


2ND 


ADV 


61 


GTO 




05 


05 




65 


65 




53 


{ 




43 


ECL 




76 


76 




85 


+ 




43 


ECL 




75 


75 




65 


* 




43 


ECL 




80 


80 




85 


+ 




43 


RCL 




74 


74 




65 


* 




43 


ECL 




80 


80 




45 


Y**X 




02 


2 




54 ) 


99 


2ND 


PET 


98 


2ND 


AEV 


53 


( 




43 


RCL 




66 


66 




85 


+ 




43 


ECL 




57 


57 




85 


+ 




53 


( 




43 


ECL 




55 


55 




75 


- 




43 


ECL 




68 


63 




54 


) 




65 


+ 




53 


( 




43 


ECL 




79 


79 




85 


+ 




43 


RCL 




78 


78 




65 


* 




43 


RCL 




80 


80 




85 


+ 




43 


RCL 




77 


77 




65 


* 




43 


ECL 




80 


80 




45 


Y**X 


02 


2 




54 } 

54 ) 


99 


2ND 


PET 


98 


2ND 


ACV 


53 


( 





26 1 



539 


43 


RCL 






540 


80 


80 






54 1 


35 


+ 






54 2 


53 


( 






543 


53 


( 






544 


43 


RCL 






545 


60 


60 






546 


75 


- 






547 


43 


RCL 






548 


54 


54 






549 


85 


+ 






550 


02 


2 






55 1 


00 


0 






552 


54 


) 






553 


55 


/ 






554 


43 


RCL 






55 5 


67 


67 






556 


65 


* 






557 


01 


1 






558 


00 


0 






559 


00 


0 






560 


00 


0 






561 


54 


) 






562 


54 


) 






56 3 


99 


2ND 


FRT 




564 


98 


2ND 


ADV 




56 5 


43 


RCL 






566 


70 


70 






567 


92 


INV 


SER 




BAX59 SYMBOL TABLE DUMP 


BUCKET 


CCNT 


ENTS 


REG TYP 





03 

05 

06 
08 
10 

13 

14 
16 

18 

20 

24 

26 



R EF D E F 


6 6 


GLOBAL VAR 


LCG 1 0 


• • 


QUICK FN 


GSIDA 


60 


GL03AL VAR 


EL 


80 


GLOBAL VA? 


GRIDE 


58 


GL03AL VAR 


FP 




QUICK FN 


ABS 


• • 


QUICK FN 


F N_ F D 


70 


PARAMETER FN 


PI 




CONSTANT 


IP 


• • 


QUICK FN 


CSC 


• • 


QUICK FN 


SEC 


• • 


QUICK FN 


DFCOR 


57 


GLOBAL VAR 


LOG 


• • 


QUICK FN 


GRIDN 


59 


GLOBAL VAR 


RGK 


56 


GLOBAL VAR 


RND 


10 


LONG FN 



ACOS 



MILRAD 



28 

30 



262 



64 



QUICK FN 
GLOBAL VAR 



33 

35 

36 

38 

40 

41 

43 

53 

59 

63 

64 

67 

69 

71 

74 

75 

77 

78 

79 

80 

81 

82 



IAN 
ATN 
A SIN 



COS 



COT 



RGDEV 



SIN 



OT 



EXP 



LATDEV 



SQR 



ETRYA 



INVOKE 



ETPYE 



TGTRG 



H ACROSS 



CHG4MAX 



CHG5MAX 



CHG7MAX 

A04 



CHG8MAX 
A 05 
E04 

A 14 



TGT A Z 
E05 
A 15 
E 14 
C04 
A 24 



A 07 
E 15 
C05 
A 25 
E24 
C 14 



3TRYL 
AOS 
E07 
A 17 
B25 
C 15 
C 24 



B08 
A 18 
B 17 
C07 



QUICK FN 
QUICK FN 
QUICK FN 



QUICK FN 



QUICK FN 



63 GLOBAL VAR 



QUICK FN 



61 GLOBAL VAR 



QUICK FN 



62 GLOBAL VAR 



QUICK FN 



54 GLOBAL VAR 



69 GLOBAL VAR 



52 GL03AL VAR 



67 GLOBAL VAR 



51 GLOBAL VAR 



47 GLOBAL VAR 



48 GLOBAL VAR 



49 GLOBAL VAR 

13 GLOBAL VAR 



50 GL03AL VAR 
22 GLOBAL VAR 
17 GLOBAL VAR 
12 GLOBAL VAR 



68 GL03AL VAR 
26 GL03AL VAR 
21 GLOEAL VAR 
18 GLOEAL VAR 
16 GLOBAL VAR 
11 GL03AL VAR 



31 GLOBAL VAR 
27 GLOBAL VAR 
25 GLOBAL VAR 
20 GL03AL VAR 
19 GLOBAL VAR 
15 GL03AL VAR 



55 GL03AL VAR 
40 GLOBAL VAR 
35 GLOBAL VAR 
30 GLOBAL VAR 
28 GLOBAL VAR 
24 GLOBAL VAR 
14 GLOBAL VAR 



44 GL03AL VAR 
39 GLOBAL VAR 
36 GLOBAL VAR 
34 GLOBAL VAR 
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A 27 


29 


GLOBAL 


VAR 


C25 


23 


GLOBAL 


VAR 


ETRYN 


53 


GLOBAL 


VAR 


E 13 


45 


GLOBAL 


VAR 


C08 


43 


GLOBAL 


VAR 


A 28 


38 


GLOBAL 


VAR 


E27 


37 


GL03AL 


VAR 


C 17 


33 


GLOBAL 


VAR 


RCTC03 


65 


GLOBAL 


VAR 


E28 


46 


GLOBAL 


VAR 


C 18 


42 


GLOBAL 


V AR 


C27 


32 


GLOBAL 


VAR 


C28 


4 1 


GLOBAL 


VAR 
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APPENDIX a 

TEST PROGRAM MAH 2 MAPPING FILE (NAMEF) 



T I -59 REGISTER TO NAME MAPPING 



REG# 


BASIC NAME 


1 1 


A 24 


12 


A 1 4 


12 


A 04 


14 


C24 


15 


C 1 4 


16 


CO 4 


17 


304 


13 


314 


19 


324 


20 


A 2 5 


21 


A 1 5 


22 


AOS 


23 


C 2 5 


24 


C 1 5 


25 


C 0 5 


26 


305 


27 


B 1 5 


28 


B25 


29 


A 2 7 


30 


A 1 7 


2 1 


A 0 7 


32 


C27 




C 1 7 


34 


C07 


•3 e 


B 07 


36 


317 


37 


327 


38 


A 28 


39 


A 1 8 


40 


A 0 8 


4 1 


C 2 8 


42 


C 1 8 


43 


C 0 8 


44 


308 


45 


B 1 8 


46 


328 


47 


CHG4MAX 


48 


CHG5MAX 


49 


CHG7MAX 


50 


CHG8MAX 


51 


HACROSS 


52 


3TRYE 


c 


3TR YN 


54 


3TRYA 


55 


3TR YL 


56 


RGK 


57 


DECOR 


58 


GRIDE 


59 


GRIDN 


60 


GRIDA 


6 1 


OT 


62 


L AT DEV 


63 


RGDEV 



265 



64 

65 

66 

67 

68 
6S 
70 
7 1 

72 

73 

74 

75 

76 

77 

78 
7 <? 
80 



.'ll L RAD 

ROTCOR 

HEFDEF 

TGTRG 

TGT AZ 

INVOKE 

FN FD 

1 FN 
FN 
FN 
FN 
FN 
FN 
FN 
FN 
FN 



PARAMETE R) 
PARAMETER) 
PARAMETE B) 
PARAMETER! 
PARAMETE B) 
PARAMETER) 
PARAMETE R) 
PARAMETER' 
PARAMETE B) 



266 



APPENDIX N 



TEST PROGRAM DATA/READ MAPPING FILE (READ?) 



INPOT DATA 


TO RE 


AD MAPPING 


DATA 


REG 


NAME 


-. 0 133670 


1 1 


A24 


21*2691 


12 


A1 4 


-105.7 


13 


A04 


-.00001499 


14 


C24 


. C6630 


15 


Cl 4 


-. 4 1 


16 


CO 4 


. 77 


17 


BO 4 


.01214 


18 


B14 


. 0000 1720 


19 


324 


-. 0 149331 


20 


A25 


24.3439 


21 


A15 


64.7 


22 


A05 


-. 00001420 


23 


C25 


. 0 7C6 9 


24 


Cl 5 


. 06 


25 


C05 


1 . 26 


26 


305 


.01508 


27 


315 


. 0000 1678 


28 


B25 


-. 0173835 


29 


A27 


29.8741 


30 


A17 


2255. 2 


31 


AO 7 


-.0000 1668 


32 


C27 


.08487 


33 


C 1 7 


3.29 


34 


CO 7 


1.3 


35 


207 


.02713 


36 


B17 


. 0000 1306 


37 


B27 


-. 0 182 137 


38 


A28 


32.3731 


39 


A 1 8 


4 1C7. 4 


40 


AO 8 


-. 0000 1668 


41 


C28 


.09272 


42 


Cl 8 


5.74 


43 


CO 8 


1 . 36 


44 


30 3 


.02891 


45 


B 1 8 


. 00001410 


46 


328 


5700 


47 


CHG4MAX 


7000 


48 


CHG5 MAX 


10800 


49 


CHG7 MAX 


1 76 CO 


50 


CHG8 MAX 
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715 


51 


HACROSS 


0 


52 


BTRYE 


0 


53 


3TB YN 


0 


54 


3TRYA 


800 


55 


BTRYL 


1.0 


56 


RGK 


0 


57 


DFCOR 


4000 


58 


GRIDE 


4000 


59 


GRID N 


10 


60 


GRID A 


4000 


61 


or 


400 


62 


LATDEV 


10 


63 


RGDE7 


10 18. 5924 


64 


MIL RAD 


1600 


65 


ROTCOR 


3200 


66 


RSFDE? 
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APPENDIX 0 

TEST PHGGRAN LINK INTERFACE FILE (SCRATCH) 



$ 1 

81 IS NEXT AVAILABLE REG. 
$1 

$2 



TI-59 CCCE TRANSLATED FROM W 2 ASIC 
(UNS EGMSNTED) 



SO 



ACDR 


CODE 




00 0 


76 


2ND 


LEL 


00 1 


1 1 


A 




002 


71 


SBR 




00 3 


12 


B 




004 


68 


2ND 


NOP 


005 


71 


SBR 




006 


13 


C 




C07 


68 


2ND 


NOP 


008 


71 


SBR 




C09 


14 


D 




010 


68 


2ND 


NO? 


01 1 


24 


CE 




012 


08 


8 




013 


ca 


8 




014 


08 


8 




015 


91 


R/S 




016 


76 


2ND 


LEL 


017 


12 


B 




018 


53 


( 




C 1 9 


43 


RCL 




020 


59 


59 




021 


£5 


+ 




022 


53 


( 




023 


43 


RCL 




024 


63 


63 




025 


65 


* 




026 


53 






027 


53 


/ 




028 


43 


RCL 




029 


65 


65 




030 


75 


- 




03 1 


43 


RCL 




032 


61 


61 




033 


54 


) 




03 4 


55 


/ 




035 


43 


RCL 




036 


64 


64 




037 


54 


) 




038 


38 


2ND 


SIN 


039 


75 


- 




040 


43 


RCL 




04 1 


62 


62 




042 


65 


* 




043 


53 


( 




044 


53 


( 




045 


43 


RCL 





BEGIN TI-59 CODE. 
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I 










04 6 

C47 

048 

C49 

050 

051 

C52 

053 

054 

C55 

056 

057 

058 

C59 

060 

06 1 

06 2 

063 

06 4 

065 

066 

067 

068 

C69 

070 

07 1 

072 

C73 

07 4 

075 

076 

C77 

078 

C79 

080 

C81 

082 

083 

084 

C85 

086 

C 87 

088 

C89 

090 

09 1 

092 

093 

094 

C95 

096 

C97 

098 

099 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

11 1 

112 

113 

114 



65 


65 




75 


- 




43 


RCL 




61 


61 




54 


) 




55 


/ 




43 


HCL 




64 


64 




54 


) 




39 

54 

54 


2ND 

1 


CCS 


42 


STO 




59 


59 




53 


( 




43 


RCL 




58 


58 




85 


+ 




53 


( 




43 


hcl 




63 


63 




65 

53 

53 


* 

! 




43 


HCL 




65 


65 




75 


- 




43 


RCL 




61 


61 




54 


) 




55 


/ 




43 


RCL 




64 

54 


64 

) 




39 


2ND 


CCS 


85 


+ 




43 


RCL 




62 


62 




65 

53 

53 


* 

1 




4 3 


RCL 




65 


65 




75 


- 




43 


RCL 




61 


€1 




54 


) 




55 


/ 




43 


RCL 




64 

54 


64 

) 




38 

54 

54 


2ND 

I 


SIN 


42 


STO 




58 


58 




92 


INV 


SER 


76 


2ND 


L3L 


13 

53 

53 

53 


C 

icL 




43 






58 


58 




75 


- 




43 


RCL 




52 

54 


52 




45 


Y**X 



270 



115 

116 

117 

118 

119 

120 

12 1 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

133 

139 

140 

14 1 

142 

143 

144 

145 

146 

147 

148 

149 

150 

15 1 

152 

153 

154 

155 

156 

157 

153 

159 

160 

16 1 

162 

163 

164 

165 

166 

167 

163 

169 

170 

17 1 

172 

173 

174 

175 

176 

177 

173 

179 

180 

181 

182 

183 



02 


2 


85 


+ 


£3 


( 


43 


RCL 


59 


59 


75 


- 


43 


RCL 


53 


53 


54 ) 


45 


Y**X 


C 2 


2 


54 


) 


34 

54 

42 


SQ3T <X) 
STO 


67 


67 


53 l 

53 


53 




43 


RCL 


59 


59 


75 


- 


43 


RCL 


53 


53 


54 


) 


55 


/ 


43 


RCL 


67 


67 


54 


) 


27 


2ND INV 


38 


2ND SIN 


65 


* 


43 


RCL 


64 


64 


54 


) 


42 


STO 


68 


68 


43 


RCL 


58 


58 


32 


X<= >T 


43 


RCL 


52 


52 


32 


X< = > I 


22 


INV 


77 


2ND X>=T 


01 


01 


74 


74 


53 


( 


43 


RCL 


65 


65 


75 


- 


43 


RCL 


68 


68 


54 


) 


42 


STO 


68 


68 


61 


GTO 


01 


01 


65 


85 


53 i 

C 3 3 


65 


* 


43 


RCL 


65 


65 


85 


+ 


43 


RCL 


68 


68 


54 ) 


42 


STO 



27 1 



184 

185 

186 

187 

188 

189 

190 

19 1 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

20 2 

20 3 

20 4 

205 

206 

207 

208 

209 

210 

21 1 

212 

213 

214 

215 

216 

217 

21 8 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

23 1 

23 2 

233 

23 4 

235 

236 

237 

238 

239 

240 

24 1 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 



68 


58 


92 


INV SER 


76 


2ND LEL 


14 


D 


43 


3CL 


67 


67 


32 


X<= >T 


43 


RCL 


47 


47 


22 


INV 


77 


2ND X>=T 


C2 


02 


44 


44 


53 


( 


43 


RCL 


1 1 


11 


42 


STO 


71 


71 


43 


RCL 


12 


12 


42 


STO 


72 


72 


43 


RCL 


13 


13 


42 


STO 


73 


73 


43 


RCL 


14 


14 


42 


STO 


74 


74 


43 


RCL 


15 


15 


42 


STO 


75 


75 


43 


RCL 


16 


16 


42 


STO 


76 


76 


43 


RCL 


19 


19 


42 


STO 


77 


77 


43 


RCL 


18 


18 


42 


STO 


78 


78 


43 


RCL 


17 


17 


42 


STO 


79 


79 


53 

71 


^BR 


15 


g 


54 

54 

42 


Lro 


69 


69 


61 


GTO 


04 


04 


16 


16 


43 


RCL 


67 


67 


32 


X<= >T 


43 


RCL 


48 


48 


22 


INV 


77 


2ND X>=T 


03 


03 


00 


00 
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25 3 


53 


( 


254 


43 


hcl 


25 5 


20 


20 


256 


42 


STO 


25 7 


71 


71 


25 5 


43 


RCL 


259 


21 


21 


26 0 


42 


STO 


26 1 


72 


72 


26 2 


43 


RCL 


26 3 


22 


22 


26 4 


42 


STO 


26 5 


73 


73 


26 6 


43 


RCL 


267 


23 


23 


26 8 


42 


STO 


269 


74 


74 


270 


43 


RCL 


27 1 


24 


24 


27 2 


42 


STO 


27 3 


75 


75 


27 4 


43 


RCL 


27 5 


25 


25 


27 6 


42 


STO 


277 


76 


76 


27 8 


43 


RCL 


279 


28 


28 


280 


42 


STO 


281 


77 


77 


282 


43 


RCL 


283 


27 


27 


28 4 


42 


STO 


285 


78 


78 


286 


43 


RCL 


287 


26 


26 


288 


42 


STO 


289 


79 


79 


290 


53 


( 


29 1 


71 


S3R 


292 


15 


2 


293 


54 


) 


294 


54 


) 


295 


42 


STO 


296 


69 


69 


297 


61 


GTO 


298 


04 


04 


299 


16 


16 


300 


43 


RCL 


30 1 


67 


67 


302 


32 


X<=>T 


303 


43 


RCL 


304 


49 


49 


305 


22 


INV 


306 


77 


2ND X>= 


307 


03 


03 


30 3 


56 


56 


209 


53 


( 


310 


43 


RCL 


31 1 


29 


29 


312 


42 


STO 


313 


71 


71 


314 


43 


RCL 


215 


30 


30 


316 


42 


STO 


217 


72 


72 


318 


43 


RCL 


219 


31 


31 


320 


42 


STO 


321 


73 


73 
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322 


43 


RCL 


323 


32 


32 


324 


42 


STO 


325 


74 


74 


326 


43 


RCL 


327 


33 


33 


328 


42 


STO 


329 


75 


75 


330 


43 


RCL 


33 1 


34 


34 


33 2 


42 


STO 


333 


76 


76 


334 


43 


RCL 


335 


37 


37 


336 


42 


STO 


337 


77 


77 


338 


43 


RCL 


339 


36 


36 


340 


42 


STO 


34 1 


78 


78 


342 


43 


RCL 


34 3 


35 


35 


34 4 


42 


STO 


345 


79 


79 


346 


53 


( 


347 


71 


53 R 


348 


15 


E 


349 


54 


) 


350 


54 


j 


351 


42 


STO 


352 


69 


69 


353 


61 


GTO 


354 


C4 


04 


355 


16 


16 


356 


43 


RCL 


357 


67 


67 


358 


32 


X<= > T 


359 


43 


RCL 


360 


50 


50 


36 1 


22 


INV 


362 


77 


2ND X >=T 


363 


04 


04 


364 


12 


12 


365 


53 


( 


366 


43 


RCL 


36 7 


38 


38 


368 


42 


STO 


369 


71 


71 


370 


43 


RCL 


37 1 


39 


39 


37 2 


42 


STO 


373 


72 


72 


374 


43 


RCL 


375 


40 


40 


376 


42 


STO 


377 


73 


73 


378 


43 


RCL 


379 


4 1 


41 


380 


42 


STO 


381 


74 


74 


382 


43 


RCL 


383 


42 


42 


384 


42 


STO 


385 


75 


75 


386 


43 


RCL 


387 


43 


43 


388 


42 


STO 


389 


76 


76 


39 0 


43 


RCL 
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39 1 

392 

393 

394 

395 

396 

397 

398 

399 

403 

40 1 

402 

403 

404 

40 5 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 

420 

42 1 

422 

423 

424 

425 

426 

427 

423 

429 

43 0 

43 1 

432 

433 

434 

435 

436 

437 

43 8 

439 

440 

44 1 

442 

443 

44 4 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 



46 


46 




42 


STO 




77 


77 




43 


RCL 




45 


45 




42 


STO 




78 


78 




43 


RCL 




44 


44 




42 


STO 




79 


79 




53 

71 


Jbr 




15 


E 




54 

54 

42 


STO 




69 


69 




61 


GTO 




04 


04 




16 


16 




43 


RCL 




67 


67 




99 


2ND 


FRT 


98 


2ND 


ADV 


92 


INV 


SER 


76 


2ND 


LBL 


15 


2 




00 


0 




42 


STO 




70 


70 




53 

53 

43 


RCL 




72 


72 




94 


♦/- 




85 


+ 




53 


( 




43 


RCL 




72 


72 




45 


Y**X 




02 


2 




75 


- 




53 


( 




C4 


4 




65 


* 




43 


RCL 




71 


71 




65 


* 




53 


( 




43 


RCL 




73 


73 




75 


- 




43 


RCL 




67 


67 




65 


* 




43 


RCL 




56 


56 




54 

54 

54 

34 


SORT (X) 


54 


) 




55 


/ 




53 


( 




02 


2 




65 


* 




43 


RCL 




71 


71 
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46 0 

46 1 

462 

46 3 

46 4 

465 

466 

46 7 

46 8 

469 

470 

47 1 

47 2 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

49 1 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

52 1 

522 

523 

524 

525 

526 

527 

528 



54 

54 

42 


STO 


80 


80 


43 


RCL 


80 


80 


32 


X<= >T 


43 


RCL 


51 


51 


77 


2ND X>=T 


04 


04 


82 


82 


43 


RCL 


68 


68 


99 


2ND FET 


43 


RCL 


67 


67 


99 


2ND FRT 


98 


2ND AEV 


61 


GTO 


05 


05 


65 


65 


53 


( 


43 


RCL 


76 


76 


65 


♦ 


43 


RCL 


75 


75 


65 


* 


43 


P.CL 


80 


90 


85 


+ 


43 


RCL 


74 


74 


65 


* 


43 


RCL 


80 


80 


45 


Y**X 


02 


2 


54 

99 


^ND PET 


98 


2ND AC V 


53 


( 


43 


RCL 


66 


66 


65 


+ 


43 


RCL 


57 


57 


85 


+ 


53 

43 


IcL 


55 


55 


75 


- 


43 


RCL 


68 


68 


54 


) 


85 


+ 


53 

43 


^CL 


79 


79 


85 


+ 


43 


RCL 


78 


73 


65 


* 


43 


RCL 


60 


30 


85 


+ 


43 


RCL 


77 


77 
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529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

55 3 

554 

555 

556 

557 

558 

559 

56 0 

56 1 

562 

563 

56 4 

565 

566 

567 



65 


* 




43 


RCL 




80 


80 




45 


Y**X 




02 


2 




54 

54 

99 


Ld 


FRT 


98 


2ND 


ADV 


53 


( 




43 


RCL 




80 


80 




85 


+ 




53 

53 

43 


1 

RCL 




60 


60 




75 


- 




43 


RCL 




54 


54 




85 


♦ 




02 


2 




00 


0 




54 


) 




55 


/ 




43 


RCL 




67 


67 




65 


* 




01 


1 




00 


0 




00 


0 




00 


0 




54 

54 

99 


Lid 


FRT 


98 


2ND 


ADV 


43 


RCL 




70 


70 




92 


INV 


SER 



END TI-59 CODE. 
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TI-59 REGISTER TO NAME MAPPING 



REG# 


BASIC NAME 


1 1 


A 2 4 


12 


A 1 4 


13 


AO 4 


14 


C 24 


15 


Cl 4 


16 


C 0 4 


17 


BO 4 


18 


3 1 4 


19 


B24 


20 


A 2 5 


21 


A 1 5 


22 


AOS 


23 


C25 


24 


C 1 5 


25 


COS 


26 


305 


27 


B 1 5 


28 


325 


29 


A27 


30 


A 17 


31 


A 0 7 


3 2 


C 27 


33 


C 1 7 


34 


C 0 7 


35 


307 


36 


3 17 


37 


B27 


38 


A 2 8 


39 


A 18 


40 


A 0 8 


4 1 


C 2 8 


42 


C 1 3 


43 


CO 8 


44 


B 0 8 


45 


B 1 8 


46 


B 2 8 


47 


CHG4MAX 


48 


CHG5MAX 


49 


CHG7MAX 


50 


CHG8MAX 


51 


H AC ROSS 


52 


3TRYE 


53 


3TRYN 


54 


3TR YA 


55 


BTRYL 


56 


RGK 


57 


DFCOR 


58 


GRIDE 


59 


GRIDN 


60 


GRIDA 


61 


OT 


6 2 


LATDEV 


63 


RGD2V 


64 


MILRAD 


65 


ROTCOR 


66 


REFDEF 


67 


TGTRG 


68 


TGTAZ 


69 


INVOKE 


70 


FN FD 


71 


7 FN PARA 


72 


(FN PARA 
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73 1 


[FN 


74 < 


FN 


75 | 


FN 


76 | 


FN 


77 | 


FN 


78 I 


FN 


79 I 


FN 


80 EL 





PARAMETER) 
PARAMETE R) 
PARAMETER) 
PARAMETE E) 
PARAMETER) 
PARAMETE E) 
PARAMETER) 
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34 



INPUT DATA TO READ SAPPING 



DATA 


BEG 


NAME 


.0133670 


1 1 


A24 


21.2691 


12 


A14 


105.7 


13 


AO 4 


.0000 1499 


14 


C24 


. C6630 


15 


Cl 4 


. 4 1 


1 6 


CO 4 


. 77 


17 


30 4 


.01314 


18 


314 


. 00001720 


19 


324 


. 0 149331 


20 


A25 


24. 3439 


21 


A15 


64.7 


22 


AO 5 


. 00001420 


23 


C25 


.07069 


24 


Cl 5 


. 06 


25 


CO 5 


1 . 26 


26 


30 5 


.01508 


27 


315 


. 0000 1678 


28 


B25 


.0 173835 


29 


A27 


29.8741 


30 


A17 


2255. 2 


3 1 


AO 7 


. 0000 1668 


32 


C27 


.08487 


33 


Cl 7 


3.29 


34 


C07 


1 . 3 


35 


307 


.02713 


36 


B17 


. 00C0 1306 


37 


327 


. 0182 137 


38 


A28 


32.3731 


39 


A18 


4107. 4 


40 


A08 


.0000 1668 


41 


C29 


.09272 


42 


Cl 3 


5.74 


43 


CO 8 


1 . 36 


44 


BOS 


.0289 1 


45 


318 


.00001410 


46 


B28 


5700 


47 


CHG4 SAX 


7000 


48 


CHG53AX 


10800 


49 


CHG7MAX 


17600 


50 


CHG8MAX 


715 


51 


HACK OSS 


0 


52 


3TRY3 


0 


53 


3TRYN 


0 


54 


BTRYA 


800 


55 


BTRYL 


1 . 0 


56 


RGK 


0 


57 


DECOR 
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oo 

oo 

oo 


58 


GRIDS 


59 


GRID N 


10 


60 


GRID A 


400C 


61 


CT 


400 


62 


LATDSV 


10 


63 


RGDSV 


1018. 5924 


64 


MIL RAD 


1600 


65 


ROIC OR 


3200 


66 


REFDEF 



28 1 



AP PENDIX P 

TEST PROGRAM LINKER OUTPUT 



E AX 59 PROGRAM INSTRUCTIONS: VERSION 1.0 



* CONGRATULATIONS, YOU HAVE JUST COMPILED A SASIC PROGRAM 

INTO A TI-59 PROGRAM. IN SO DOING IT IS VERY POSSIBLE 
THAT YOUR PROGRAM IS LARGER THAN THE MEMORY OF THE 
CALCULATOR. IF THIS IS THE CASE THEN THE PROGRAM HAS 
BEEN SEGMENTED AND PROMPTING CODE INSERTED TO GUIDE 
YOUR CALCULATOR PROGRAM DURING ITS EXECUTION. THE RE- 
MAINDER OF THIS OUTPUT CONSISTS OF TI-59 CODE LISTINGS 
AND OTHER INFORMATION TO AID YOU IN YC'JR PROGRAM 
EXECUTION. 

* THE FOLLOWING DEFINITIONS ARE PROVIDED AS AN AID TO 

READING THE PROGRAM LISTING FILE. 

* DEFINITIONS: 



* MODULE: A MODULE IS DEFINED TO BE ALL THE MEMORY 

DEDICATED TO PROGRAM STEPS. THE SIZE IS VARI- 
ABLE AND IS DEPENDENT ON THE REGISTER REQUIRE- 
MENT. VALUES RANGE FROM 0 TO 239, 479 OR 719 
DEPENDING ON THE AMOUNT OF REGISTERS USED EY 
THE PROGRAM. 

* CARD: A CARD IS DEFINED TO 3E ONE MAGNETIC CARD. 

A CARD HCLDS 480 PROGRAM STEPS. THESE STEPS 
ARE NOT CONTIGUOUS BUT ARE ARRANGED ON THE TWO 
SIDES OF THE C ARD. 

* SIDE: A SIDE IS ONE HALF-OF A CARD. IT CONTAINS 

UP TO 240 STEPS. WHEN ONE SIDS OF A CARD IS 
READ BY THE CALCULATOR 240 PROGRAM STEPS ARE 
FILLED IN MEMORY. THESE 3LOCKS OF 240 STEPS 
ARE RSFERED TO AS "BANKS" IN THE MANUFACTURER 
LITERATURE. WHEN LOADING A CARD YOU WILL LOAD 
ONLY BANK NUMBER 1 AND/OR 2 FOR PROGRAM STEPS. 

* PARTITION: THIS IS DEFINED TO 3E THE CURRENT 

SETTING OF CALCULATOR MEMORY AS APPLIED TO THE 
AMOUNT CF MEMORY DEDICATED TO STORAGE REGISTERS 
AND THE AMOUNT DEDICATED TO PROGRAM STEPS. 

WE WILL EE DEALING WITH 3 PARTITIONS. THESE 



ARE: 



3 

4 

5 



719.29 

479.59 

239.69 



FORMAT 



X 



YYY. ZZ 



WHERE X STANDS FOR PARTITION NUMBER 

YYY STANDS FOR PROGRAM STEPS (0-YYY) 
ZZ STANDS FOR REGISTERS (Q-ZZ) . 



282 



TI 59 PROGRAM LISTING BY MODULE/CARD/SIDE 



* THE FOLLOWING IS YOUR PROGRAM LISTING. THE PROGRAM IS 

LISTEE ACCORDING TO MODULE NUMBER AND ITS ASSOCIATED 
CARDS AND CARD SIDES. 

* REFER TO THE TI-59 PROGRAMMER'S GUIDE ON HOW TO INPUT A 

PROGRAM AND WRITE IT TO MAGNETIC CARDS. 

* CAUTION: ENSURE THAT THE CORRECT CALCULATOR PARTITION 

IS SET BEFORE INPUTTING A PROGRAM AND WRITING TO 
MAGNETIC CARDS. 

* CAUTION: ENSURE THAT YOU DO NOT CONFUSE 3 ANK NUMEERS 

WITH CAFD/KODULE OR SIDE NUMBERS. THE NUMBERS WHICH 
REFER TO THE LISTING ARE AKIN TO A VIRTUAL ADDRESS 
AND DC NOT REPRESENT THE ACTUAL BANK NUMBER. 

IF IN DOUBT, REMEMBER TO USE THE TABLE BELOW TO 
TRANSLATE VIRTUAL TO ACTUAL BANK NUMBERS. 

VIRTUAL BANK ACTUAL BANK 

MODULE # 

CARD1 

SIDE1 E ANK 1 

MODULE # 

C ARE1 

SID E 2 5ANK2 

MODULE # 

C ARD2 

SIDE 1 3 ANK 3 



TI-59 LISTING 



* MANUAL RETURN REGISTER TOF IS 81 

STORE IN REGISTER: 8 

* PROGRAM PARTITION IS 23 9.89 

* PARTITION NUMBER IS 9 



♦MCEULE * 1 
CARD #1 
SICE #1 



000 


76 


2ND 


LBL 


00 1 


1 1 


A 




002 


71 


SBR 




003 


12 


3 




004 


68 


2ND 


NO? 


005 


71 


SBR 




006 


1 3 


C 




007 


68 


2ND 


NOP 


008 


7 1 


SBR 




009 


1 4 


D 




010 


68 


2ND 


NO? 


01 1 


24 


CE 




012 


08 


3 




013 


03 


3 
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014 


08 


3 




015 


91 


R/S 




016 


76 


2ND 


L3L 


017 


14 


D 




019 


42 


STO 




019 


00 


00 




020 


69 


2ND 


OP 


02 1 


23 


28 




022 


0 1 


1 




023 


72 


STO 


2ND 


024 


03 


08 




025 


02 


2 




026 


93 


• 




027 


00 


0 




028 


00 


0 




02 9 


00 


0 




030 


9 1 


R/S 




031 


76 


2ND 


LBL 


032 


1 2 


B 




033 


53 


( 




034 


43 


RCL 




035 


59 


59 




036 


85 


+ 




037 


53 


( 




038 


4 3 


RCL 




039 


63 


63 




040 


65 


X 




04 1 


53 


( 




042 


53 


( 




043 


43 


RCL 




044 


65 


65 




045 


75 


- 




046 


43 


RCL 




047 


6 1 


6 1 




048 


54 


) 




049 


55 


/ 




050 


4 3 


RCL 




051 


64 


54 




052 


54 


) 




053 


38 


2ND 


SIN 


054 


75 


- 




055 


4 3 


RCL 




056 


62 


62 




057 


65 


X 




058 


53 


( 




059 


53 


( 




060 


43 


RCL 




06 1 


65 


6 5 




062 


75 


- 




063 


43 


RCL 




064 


6 1 


6 1 




065 


54 


) 




066 


55 


/ 




067 


43 


RCL 




068 


64 


64 




069 


54 


) 




070 


39 


2ND 


COS 


071 


54 


) 




072 


54 






073 


42 


STO 




074 


59 


59 




075 


53 


( 




076 


43 


RCL 




077 


58 


58 




078 


85 


+ 




079 


53 


( 




080 


43 


RCL 




081 


63 


53 




082 


65 


X 
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■ 

K 







083 


53 


( 


084 


53 


i 


085 


43 


RCL 


086 


65 


65 


087 


75 


- 


088 


43 


RCL 


089 


6 1 


6 1 


090 


54 


) 


091 


55 


/ 


092 


43 


RCL 


093 


64 


64 


094 


54 


) 


095 


39 


2ND COS 


096 


85 


+ 


097 


43 


RCL 


098 


62 


62 


099 


65 


X 


100 


53 


( 


101 


53 


( 


102 


43 


RCL 


103 


65 


65 


104 


75 


- 


105 


43 


RCL 


106 


6 1 


6 1 


107 


54 


) 


108 


55 


/ 


109 


43 


RCL 


1 10 


64 


64 


1 1 1 


54 


) 


1 1 2 


38 


2ND SIN 


1 1 3 


54 


) 


1 1 4 


54 


) 


1 15 


42 


STO 


1 16 


58 


58 


1 17 


92 


INV SBR 


1 1 8 


76 


2ND LBL 


1 1 9 


1 3 


C 


120 


53 


< 


1 2 1 


53 


1 


122 


53 


] 


123 


43 


hCL 


124 


58 


58 


125 


75 


- 


126 


43 


RCL 


127 


52 


52 


128 


54 


) 


129 


45 




130 


02 


2 


131 


85 


+ 


132 


53 


( 


133 


4 3 


RCL 


134 


59 


59 


135 


75 


- 


136 


43 


RCL 


137 


53 


53 


138 


54 


) 


139 


45 


Y**X 


140 


02 


2 


14 1 


54 


) 


142 


34 


3QRT (X) 


143 


54 


) 


144 


42 


STO 


145 


67 


67 


146 


53 


( 


147 


53 




148 


53 


( 


149 


43 


RCL 


150 


59 


59 


151 


75 


- 
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152 


43 


RCL 


153 


53 


53 


154 


54 


) 


155 


55 


/ 


156 


43 


RCL 


157 


67 


67 


158 


54 


) 


159 


27 


2ND INV 


160 


38 


2ND SIN 


161 


65 


X 


162 


43 


RCL 


163 


64 


6 4 


164 


54 


) 


165 


42 


STO 


166 


68 


68 


167 


4 3 


RCL 


169 


53 


58 


169 


32 


X <=>T 


170 


43 


RCL 


17 1 


52 


52 


172 


32 


X<=>T 


173 


22 


INV 


174 


77 


2ND X>=T 


175 


01 


0 1 


176 


39 


39 


177 


53 


( 


178 


43 


RCL 


179 


65 


65 


180 


75 


- 


181 


43 


RCL 


182 


68 


68 


183 


54 


) 


184 


42 


STO 


185 


68 


68 


186 


6 1 


G TO 


187 


02 


02 


188 


00 


00 


189 


53 


( 


190 


03 


3 


191 


65 


X 


192 


43 


RCL 


193 


65 


65 


194 


85 


+ 


195 


4 3 


RCL 


196 


68 


63 


1 97 


54 


) 


198 


42 


STO 


199 


63 


6 8 


200 


92 


INV SBR 
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♦MODULE ft 2 
CAF,C #1 
SIDE #1 



000 


76 


2ND LBL 


00 1 


1 4 


D 


002 


43 


RCL 


003 


67 


67 


004 


32 


X<=> T 


005 


43 


RCL 


006 


47 


47 


007 


22 


I NV 


008 


77 


2ND X>=T 


009 


00 


00 


0 10 


58 


58 


01 1 


53 


( 


012 


43 


RCL 


013 


1 1 


1 1 


0 1 4 


4 2 


STO 


015 


71 


7 1 


0 16 


43 


RCL 


017 


1 2 


12 


018 


42 


STO 


019 


72 


72 


020 


43 


RCL 


02 1 


13 


13 


022 


42 


STO 


023 


73 


73 


024 


43 


RCL 


025 


1 4 


14 


026 


42 


STO 


027 


74 


74 


028 


43 


RCL 


029 


15 


15 


030 


4 2 


STO 


031 


75 


75 


032 


43 


RCL 


033 


16 


16 


034 


4 2 


STO 


035 


76 


76 


036 


43 


RCL 


037 


19 ' 


19 


038 


42 


STO 


039 


77 


77 


040 


43 


RCL 


04 1 


1 3 


18 


042 


42 


STO 


043 


78 


78 


044 


43 


RCL 


045 


1 7 


1 7 


046 


42 


STO 


04 7 


79 


79 


048 


53 


( 


049 


7 1 


S3R 


050 


1 5 


E 


051 


54 


) 


052 


54 




053 


42 


STO 


054 


69 


69 


055 


6 1 


GTO 


056 


0 1 


0 1 


057 


23 


23 


058 


43 


RCL 


059 


67 


67 


060 


32 


X<=> T 


06 1 


43 


RCL 


062 


48 


48 


063 


22 


INV 


064 


77 


2ND X>=T 
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065 


01 


0 1 


066 


32 


32 


067 


53 


( 


068 


43 


RCL 


069 


2 0 


20 


070 


42 


STO 


071 


71 


7 1 


072 


43 


RCL 


073 


21 


21 


074 


42 


STO 


075 


72 


72 


076 


43 


RCL 


077 


22 


22 


078 


42 


STO 


079 


73 


73 


080 


43 


RCL 


08 1 


23 


23 


082 


42 


STO 


083 


74 


74 


084 


43 


RCL 


095 


24 


24 


086 


42 


STO 


087 


75 


75 


088 


43 


RCL 


089 


25 


25 


090 


42 


STO 


09 1 


76 


76 


092 


43 


RCL 


093 


28 


28 


09 4 


42 


STO 


095 


77 


77 


096 


43 


RCL 


097 


27 


27 


098 


42 


STO 


099 


78 


73 


100 


43 


RCL 


10 1 


26 


26 


102 


42 


STO 


103 


7 9 


79 


104 


53 


( 


105 


71 


iBR 


106 


1 5 


2 


107 


54 


) 


108 


54 


) 


109 


42 


STO 


110 


69 


69 


1 1 1 


6 1 


GTO 


1 1 2 


0 1 


01 


1 1 3 


23 


23 


1 1 4 


42 


STO 


1 1 5 


00 


00 


1 16 


24 


C 2 


1 1 7 


03 


3 


1 1 8 


93 


• 


1 1 9 


00 


0 


120 


00 


0 


121 


0 0 


0 


122 


9 1 


R/S 


123 


42 


STO 


124 


00 


00 


125 


24 


CE 


126 


03 


3 


127 


93 


• 


128 


0 1 


1 


129 


0 1 


1 


130 


06 


6 


131 


91 


R/S 


132 


42 


STO 


133 


00 


00 
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134 


24 


CS 




135 


03 


3 




136 


93 


• 




137 


00 


0 




138 


00 


0 




139 


00 


0 




140 


91 


R/S 




141 


76 


2ND 


LBL 


142 


15 


E 




143 


42 


5 TO 




144 


00 


00 




145 


69 


2ND 


OP 


146 


23 


28 




147 


02 


2 




148 


72 


STO 


2ND IND 


149 


08 


08 




150 


04 


4 




151 


93 


• 




152 


00 


0 




153 


00 


0 




154 


00 


0 




155 


9 1 


R/S 





*MCEULE 4 3 
CARD #1 
SIDE #1 



000 


43 


RCL 


001 


67 


67 


002 


32 


X <=>T 


003 


43 


RCL 


004 


49 


49 


005 


22 


INV 


006 


77 


2ND X>=T 


007 


00 


00 


008 


56 


56 


009 


53 


( 


010 


4 3 


RCL 


0 1 1 


29 


29 


012 


42 


STO 


013 


7 1 


71 


014 


43 


RCL 


015 


3 0 


30 


016 


42 


STO 


017 


72 


72 


018 


43 


RCL 


019 


3 1 


3 1 


020 


42 


STO 


021 


73 


73 


022 


43 


RCL 


023 


32 


32 


024 


42 


STO 


025 


74 


74 


026 


43 


RCL 


027 


33 


33 


028 


42 


STO 


029 


75 


75 


030 


43 


RCL 


03 1 


34 


34 


032 


42 


STO 


033 


76 


76 


034 


43 


RCL 


035 


37 


37 


036 


42 


STO 


037 


77 


77 


038 


43 


RCL 


039 


36 


36 


040 


42 


STO 
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04 1 


78 


78 


042 


43 


RCL 


043 


35 


35 


044 


42 


STO 


045 


79 


79 


046 


53 


( 


047 


7 1 


S8R 


048 


15 


2 


049 


54 


) 


050 


54 


) 


051 


42 


STO 


052 


69 


69 


053 


6 1 


GTO 


054 


01 


0 1 


055 


16 


16 


056 


43 


RCL 


057 


67 


67 


058 


32 


X <= >T 


059 


43 


RCL 


060 


50 


50 


06 1 


22 


INV 


062 


77 


2ND X>=T 


063 


0 1 


01 


064 


12 


12 


065 


53 


( 


066 


43 


RCL 


067 


38 


38 


068 


42 


STO 


069 


7 1 


7 1 


070 


43 


RCL 


071 


39 


39 


072 


42 


STO 


073 


72 


72 


074 


43 


RCL 


075 


40 


40 


076 


42 


STO 


077 


73 


73 


078 


4 3 


RCL 


079 


4 1 


4 1 


030 


42 


STO 


08 1 


74 


74 


082 


4 3 


RCL 


083 


42 


42 


084 


42 


STO 


085 


75 


75 


086 


4 3 


RCL 


087 


43 


43 


0 88 


42 


STO 


089 


76 


76 


090 


43 


RCL 


09 1 


46 


46 


092 


42 


STO 


093 


77 


77 


094 


43 


RCL 


095 


45 


45 


096 


42 


STO 


097 


78 


73 


098 


43 


RCL 


099 


44 


44 


100 


42 


STO 


101 


79 


79 


102 


53 


Jbr 


103 


7 1 


104 


15 




105 


54 


) 


106 


54 


) 


107 


42 


STO 


108 


69 


69 


109 


6 1 


GTO 



290 



I 







1 1 0 


0 1 


0 1 






1 1 1 


16 


16 






1 1 2 


43 


rcl 






1 1 3 


67 


67 






1 14 


99 


2ND 


PRT 




115 


9 3 


2ND 


ADV 




1 1 6 


42 


STO 






1 17 


00 


0 0 






1 18 


73 


rcl 


2ND 


I HD 


1 1 9 


08 


08 






120 


69 


2ND 


OP 




121 


38 


38 






122 


9 1 


a/s 






123 


76 


2ND 


LBL 




124 


15 


E 






125 


4 2 


STO 






126 


00 


00 






127 


69 


2ND 


OP 




128 


28 


23 






129 


03 


3 






1 30 


72 


STO 


2ND 


IND 


13 1 


08 


03 






132 


04 


4 






133 


93 


• 






134 


00 


0 






135 


00 


0 






136 


00 


0 






137 


9 1 


a/s 







♦MODULE * 4 
CARE #1 
SIDE #1 



000 


76 


2ND LBL 


00 1 


15 


5 


002 


00 


0 


003 


4 2 


STO 


004 


70 


70 


005 


53 


( 


006 


53 


( 


007 


43 


rcl 


008 


72 


72 


009 


94 


♦/- 


010 


85 


+ 


01 1 


53 


( 


012 


43 


acL 


013 


72 


72 


0 1 4 


45 


Y**X 


015 


02 


2 


016 


75 


- 


017 


53 


,( 

4 


013 


04 


019 


65 


X 


020 


43 


rcl 


02 1 


7 1 


7 1 


022 


65 


X 


023 


53 


( 


024 


43 


RCL 


025 


73 


73 


026 


75 


- 


027 


43 


rcl 


028 


67 


67 


029 


65 


X 


030 


43 


rcl 


031 


56 


5 6 


032 


54 


) 


033 


54 




034 


54 





29 1 



035 


34 


SQRT (X) 


036 


54 


) 


037 


55 


/ 


038 


53 


( 


039 


02 


2 


040 


65 


X 


04 1 


43 


RCL 


042 


71 


7 1 


043 


54 


) 


044 


54 


) 


045 


42 


STO 


046 


80 


80 


047 


43 


RCL 


048 


80 


30 


049 


32 


X <= >T 


050 


43 


RCL 


05 1 


5 1 


5 1 


052 


77 


2ND X>=T 


053 


00 


00 


054 


65 


65 


055 


43 


RCL 


056 


68 


68 


057 


99 


2ND PRT 


058 


43 


RCL 


059 


67 


67 


060 


99 


2ND PRT 


06 1 


93 


2ND ADV 


062 


6 1 


GTO 


063 


01 


0 1 


064 


48 


48 


065 


53 


( 


066 


43 


RCL 


067 


76 


76 


063 


85 


+ 


069 


43 


RCL 


070 


75 


75 


071 


65 


X 


072 


43 


RCL 


073 


30 


80 


074 


85 


•f 


075 


43 


RCL 


07 6 


74 


74 


077 


65 


X 


078 


43 


RCL 


079 


8 0 


30 


030 


45 


Y**X 


081 


02 


2 


082 


54 


) 


083 


99 


2ND PRT 


084 


98 


2ND ADV 


085 


53 


( 


086 


43 


RCL 


087 


66 


b 6 


088 


85 


+ 


089 


43 


RCL 


090 


57 


57 


091 


35 


+ 


092 


53 


( 


093 


43 


RCL 


09 4 


55 


55 


095 


75 


- 


096 


43 


RCL 


097 


68 


6 3 


098 


54 


) 


099 


85 


+ 


100 


53 


( 


101 


43 


RCL 


102 


79 


79 


103 


85 


+ 



292 



104 


43 


RCL 


105 


78 


78 


106 


65 


X 


107 


43 


RCL 


108 


80 


80 


109 


35 


+ 


110 


43 


RCL 


1 1 1 


77 


77 


112 


65 


X 


1 1 3 


43 


RCL 


1 14 


80 


80 


115 


4 5 


Y* **X 


1 1 6 


02 


2 


117 


54 


) 


118 


54 


) 


1 1 9 


99 


2ND PRT 


120 


93 


2ND ADV 


1 2 1 


53 


RCL 


1 22 


43 


123 


80 


80 


124 


85 


+ 


125 


53 


( 


126 


53 


] 


127 


43 


RCL 


128 


60 


60 


129 


75 




130 


43 


RCL 


131 


54 


54 


132 


35 


+ 


133 


02 


2 


134 


0 0 


0 


135 


54 


>, 


136 


55 


137 


43 


RCL 


133 


67 


67 


139 


65 


X 


140 


0 1 


1 


14 1 


00 


0 


142 


00 


0 


143 


0 0 


0 


14 4 


54 


) 


145 


54 


i 


146 


99 


2ND PRT 


147 


98 


2ND ADV 


148 


43 


RCL 


149 


70 


70 


150 


4 2 


STO 


151 


00 


00 


152 


73 


RCL 2ND 


153 


03 


08 


154 


6 9 


2ND OP 


155 


38 


33 


156 


91 


R/S 



TI-59 PROGRAM SPECIFIC INSTRUCTIONS: 



* THE FOLLOWING INFORMATION WILL TELL YOU HOW TO RUN 

YCUR PROGRAM. 

* YOU MUST ENTER YCUR PROGRAM MANUALLY INTO THE CALCULATOR 

AND WRITE THE PROGRAM TO MAGNETIC CARDS. THIS STEP 
ONLY NEEDS TO EE ACCOMPLISHED ONCE. AFTER THAT, THE 
PROGRAM IS ENTERED USING THE MAGNETIC CARD FACILITY 
OF THE CALCULATOR. SEE THE MANUFACTURER'S LITERATURE 
ON ENTERING A PROGRAM AND WRITING IT TO MAGNETIC 
CARDS. YOU WILL NEED TO PARTITION MEMORY. 
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* HCW TC PARTITION THE MEMORY 

* KEY SEQUENCE: 

X 

2ND 

0? 

17 

* X IS THE PARTITION NUMBER GIVEN IN THE LISTING CF 

Y CUR PROGRAM. 

* WHEN TO PARTITION THE MEMORY 

* ONCE BEFORE BEADING IN CARDS. 

* CNCE BEFORE MANUALLY ENTERING PROGRAM IN ORDER TO 

WRITE TO CARDS. 

* HCW TC START AND RUN YOUR PROGRAM 

* TGRN ON CALCULATOR 

* PARTITION CALCULATOR 

* LCAD ALL MODULE 1 CARDS 

* CPTIONAL STEP: IF YOU SELECTED THE MANUAL DATA INPUT 

DENOTED IN YOUR BASIC PROGRAM BY USING THE "DATA' 1 
AND '’READ 1 ' STATEMENTS THEN YOU MUST MANUALLY ENTER 
YOUR DATA INTO THE CALCULATOR MEMORY. THIS IS 
DC NE BY REFERRING TO "INPUT DATA TO READ" TABLE 
PROVIDED AT THE END OF THIS LISTING. MANUALLY 
ENTER THE GIVEN DATA INTO THE REGISTERS USING THE 
FOLLOWING KEYSTROKES: 

DATA 

STO 

XX 

WHERE XX IS THE DESIRED REGISTER NUMBER. 

* INITIALIZE THE MANUAL 3BR RETURN CONTROL STACK WITH 

THE FOLLOWING KEYSTROKES: 

XX 

STO 

08 

WHERE XX IS THE MANUAL RETURN REGISTER STACK TOP. 
(THIS IS GIVEN WITH THE PROGRAM LISTING NEAR THE 
PARTITION INFORMATION.) 
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ppcc iisii to START 
CLLCW DISPLAY PROM 
DEFINITIONS: 

* RON -TIME FRO MPT 
PROMPTS CISPLA 
IN THE FORM OF 
INTEGER OR A 1 
IS OUTLINED BE 
* 4 DIGIT DS 

* FORM 

* 

* 

* ACTI 

* 



PTS. 

S: 

YED 



ARE DEFINED TO BE 
IN THE CALCULATOR 



A 4 DIGIT DECIMAL, 



CALCULATOR 

WINDOW 

DIGIT 



* 2 DIGIT IN 

* FORM 

RE 

* ACTI 

* 



* 

* 



* 1 



DIGIT IN 

* FORM 

* ACTI 

* 

$ 



* PAUSE IN D 

* AN U 

DI 

TH 

TO 

PR 

ST 

TH 

RE 

* ACTI 

* 88 3 IN DIS 

* SPEC 

TH 

* ACTI 

TH 

ii ip 

AT 



DIGIT INTEGER. EACH PROMPT 
LOW: 

CIMAL 
AT ’ X . YY Y 

X STANDS FOR MODULE NUMBER (1-9) 
YYY STANDS FOR STARTING ADDRESS 
ONS: 

LOAD ALL MODULE X CARDS. 

PRESS FOLLOWING KEY SEQUENCE TO 
INTIALIZE : 

RCL 

00 

GTO 

Y 

Y 

Y 

PRESS R/S TO CONTINUE IN NEW MOD. 
TEGER 

AT: XX WHERE XX STANDS FOR A 
GISTER NUMBER. 

ONS : 

LOOK UP IN REGISTER MAP PROVIDED 
THE BASIC NAME THAT CORRESPONDS 
TO THE XX NUMBER. 

ENTER THE 3ASIC VARIABLE VALUE. 
PRESS R/S TO CONTINUE WITH THE 
ENTERED VALUE. 

TEGER 

AT: X WHERE IS A MODULE NUMBER. 
ONS : 

LOAD ALL MODULE X CARDS. 

PRESS FOLLOWING SEQUENCE TO 
INITIALIZE: 

RCL 

00 

INV 

S3R 

PRESS R/S TO CONTINUE 
ISPLA Y 

NFORMATTED DIGIT FLASHES 
SPLAY 3EFORE BEING DISPLAYED. 

IS IS AN ANSWER THAT CORRESPONDS 
A REQUESTED ANSWER IN THE BASIC 
CGRAM USING THE BASIC PRINT 
ATEMSNT. THESE ANSWERS OCCUR IN 
E SAME ORDER AS THEY WERE 
QUESTED IN THE BASIC PROGRAM. 

CNS : NOTE ANSWER AND PRESS R/S. 
PLAY 

IFIC PROMPT THAT INDICATES THAT 
E PROGRAM HAS STOPPED EXECUTION. 
ONS: IF DESIRED FIND ANSWERS IN 
E CALCULATOR MEMORY USING THE 
1-59 REGISTER TO NAME MAPPING" 

THE END OF THE INSTRUCTIONS. 



IN NEW MOD. 



IN THE 



* EXPECTED CONTROL FLOW PROMPTS BY MODULE FOLLOW: 



295 




I 



£ 



* EXPECTED PROMPTS FOR MODULE * 1 

* FORWARD JUMP CONTINUATION: 4 DIGIT REAL CCDE. 

* NONE 

* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 

* 2.000 

* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 

* NONE 

* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 

* NONE 



* EXPECTED PROMPTS FOR MODULE 
* FORWARD JUMP CONTINUATION 

* 3. 1 1 6 

* 3.000 



# 2 

4 DIGIT REAL CODE. 



* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 

* 4.000 

* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODS. 

* NONE 

* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 

* 3.000 



* EXPECTED PROMPTS FOR MODULE * 3 

* FORWARD JUMP CONTINUATION: 4 DIGIT REAL CCDE. 

* NONE 

* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 

* 4.000 

* MANUAL RETURN FROM A SUBROUTINE: 1 DIGIT CODE. 

* YES 

* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 

* NONE 

* EXPECTED PROMPTS FOR MODULE # 4 

* FORWARD JUMP CONTINUATION: 4 DIGIT REAL CODE. 

* NONE 

* SUBROUTINE INVOKE: 4 DIGIT REAL CODE. 

* NONE 

* MANUAL RETURN FRCM A SUBROUTINE: 1 DIGIT CODE. 

* YES 

* SEQUENTIAL CONTINUATION: 4 DIGIT REAL CODE. 

* NON E 
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INPUT DATA TO HEAD NAPPING 



DATA 


REG 


NAME 


-. 0133670 


1 1 


A24 


21.2691 


12 


A14 


-105.7 


13 


AO 4 


-.0000 1499 


14 


C24 


. 06630 


15 


Cl 4 


-.41 


16 


C04 


.77 


17 


BO 4 


.01314 


18 


B14 


. 3 0 0 C 1 72 0 


19 


B24 


-. 0149331 


20 


A25 


24.3439 


21 


A15 


64.7 


22 


A05 


-. 0000 142 0 


23 


C25 


. 0 7C6 9 


24 


Cl 5 


. 06 


25 


CO 5 


1.26 


26 


B05 


.01506 


27 


315 


. 3000 167 3 


23 


325 


-.0173835 


29 


A27 


29.8741 


30 


A 1 7 


2255.2 


31 


AO 7 


-.0000 1663 


32 


C27 


.06487 


33 


Cl 7 


3.29 


34 


C07 


1.3 


35 


B07 


.02713 


36 


B 1 7 


.00001306 


37 


B27 


-.0182137 


38 


A28 


32.3731 


39 


A13 


4107.4 


40 


A08 


-.00001668 


4 1 


C2 8 


.09272 


42 


Cl 8 


5.74 


43 


CO 8 


1.36 


44 


B08 


.02891 


45 


B1 8 


. 00001410 


46 


B28 


5700 


47 


CHG4 MAX 


7000 


48 


CHG5MAX 


10800 


49 


CHG7MAX 


17600 


50 


CHG8MAX 


715 


51 


HACROSS 


0 


52 


BTSYE 


0 


53 


3TRYN 


0 


54 


BIRYA 


800 


55 


BTRYL 


1.0 


56 


RGK 


0 


57 


DFCOR 
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40 0 C 


58 


GRIDS 


4 J00 


59 


GRID N 


10 


60 


GRIDA 


4000 


61 


OT 


4 00 


62 


LAT DEV 


10 


63 


RGDEV 


1018. 5924 


64 


MIL RAD 


1600 


65 


ROTCOR 


3200 


66 


R2FDEF 
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TI-59 REGISTER TO NAME MAPPING 



REG# 


3ASIC NAME 


1 1 


A24 


12 


A 14 


13 


A 0 4 


14 


C 2 4 


15 


Cl 4 


16 


C04 


17 


BO 4 


18 


B 1 4 


19 


324 


2C 


A 25 


21 


A 1 5 


22 


A 05 


23 


C 25 


24 


C 1 5 


25 


C05 


26 


305 


27 


315 


28 


B 2 5 


29 


A27 


30 


A 17 


3 1 


AO 7 


3 2 


C27 


33 


C 1 7 


34 


C07 


35 


307 


36 


317 


37 


327 


36 


A 2 8 


39 


A 1 8 


4 C 


A 0 8 


41 


C28 


42 


C 1 8 


4 3 


CO 8 


44 


308 


45 


318 


46 


328 


47 


CHG4MAX 


48 


CHG5MAX 


49 


CHG7MAX 


50 


CHG8MAX 


5 1 


HACROSS 


52 


3TRYE 


53 


BTRYN 


54 


3TRYA 


55 


3TRYL 


56 


RGK 


57 


DFCOR 


56 


GRIDE 


59 


GRIDN 


60 


GRIDA 


61 


OT 


62 


LATDEV 


63 


RGDEV 


64 


MILRAD 


65 


ROTCOR 


66 


REFDEF 


67 


TGTRG 


68 


TGTAS 


69 


INVOKE 


70 


? N FD 


71 


7 FN PARA 


72 


(FN PARA 


73 


(FN PARA 
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7 4 { 


[FN 


75 | 


FN 


76 { 


FN 


77 | 


FN 


78 < 


FN 


7 S | 

80 EL 


FN 



P AEAMETE 5 
PARAMETER 
PARAMSTS R 
PAEAMETE B 
PARAMETER 
PARAMSTS R 



END BAX59 SEGMENTATION/INSTRUCTION: VERSION 1.0 
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